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

Var
a: array [1..7, 1..8] of integer;
i, j: byte;
begin
Randomize;
writeln(***Массив***);
for i:=1 to 7 do 
begin 
for j:=1 to 8 do   
begin   
a[i,j]:= Random(91)-20;   
write(a[i, j]:5);   
end; 
writeln; 
end; 
writeln; 
writeln(***Элементы четных столбцов***); 
j:=2; 
while j<=8 do   
begin   
write(Столбец , j, : );   
for i:=1 to 7 do write(a[i, j]:5);   
j:=j+2;   
writeln;   
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.