Элементы двумерного массива 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.
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.