Составить программу обработки массива к, состоящего из 20 элементов. заполнить массив случайными числами в диапазоне от -5 до 25. все элементы массива к, значения которых находятся в интервале от -2 до 20 возвести в квадрат. измененный массив вывести на экран.

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(20,-5,25); a.println;   a.transform(t-> t.between(-2,20)? t*t : t); a.println end. пример -3 5 14 -3 10 12 1 7 10 2 15 22 5 4 -3 21 3 -1 10 21 -3 25 196 -3 100 144 1 49 100 4 225 22 25 16 -3 21 9 1 100 21

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.