(составить программы в паскале): напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла , а вывод – (в скобках указана размерность массива): увеличить каждый третий элемент массива в 2 раза (12)напишите программу, в которой нужно для каждой строки двухмерного массива 5 на 4 определить максимальное значение
var
a:array[1..5,1..4]of integer;
max,i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do begin
max:=a[i,1];
for j:=1 to 4 do
if a[i,j]>max then max:=a[i,j];
writeln(max);
end;
end.
2 задача