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