Элементы двумерного массива A(7,8) формируются датчиком случайных чисел из интервала [-20,70] . Организовать вывод на

Сначала создаем цикл, который заполняет случайными элементами массив. Функция random(90) использована потому, что она не умеет генерировать отрицательные числа, поэтому мы задаем ей предел 90 и затем от случайного числа отнимаем 20, чтобы это число не превышало заданные границы в 70.

var a:array[1..7,1..8] of integer;

beginwriteln(\'Вывод всего массива:\'); for i:integer:=1 to 7 do begin for j:integer:=1 to 8 do begin a[i,j]:=random(90)-20; write(a[i,j]:6); end; writeln(); end; writeln(\'Вывод четных столбцов массива:\'); for i:integer:=1 to 7 do begin for j:integer:=1 to 8 do begin if j mod 2 = 0 then write(a[i,j]:6); end; writeln(); end; end.