Помогите, пожалуйста (составить программы в Паскале):
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива): увеличить каждый третий элемент массива в 2 раза (12)
Напишите программу, в которой нужно для каждой строки двухмерного массива 5 на 4 определить максимальное значение
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива): увеличить каждый третий элемент массива в 2 раза (12)
Напишите программу, в которой нужно для каждой строки двухмерного массива 5 на 4 определить максимальное значение
More Questions From This User See All
Answers & Comments
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 задача