Помогите, пожалуйста (составить программы в Паскале):


Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива): увеличить каждый третий элемент массива в 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 задача