Регистрация
nikitabars7
11.04.2023 02:55
Информатика
Есть ответ 👍

Определить что будет на выходе в результате выполнения алгоритма, записанного на языке программирования ABC pascal.
var
n: integer;
begin
n:=200;
while (n mod 18 <>0) do n:=n+1;
writeln ('ответ: ' , n);
end,

143
356
Посмотреть ответы 1

Ответы на вопрос:

yaroslavat05
yaroslavat05
4,5(67 оценок)
Var a: array [1..100,1..100] of integer; n,m,i,j,max: integer; begin randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(51);     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,1]; for i: =1 to n do   for j: =1 to m do   if a[i,j]> max then max: =a[i,j]; writeln('max = ',max); end. пример: n = 4 m = 5 исходный массив:   32   24   18   0   11   36   46   13   31   36   27   49   14   50   35     9   25   15   35   41 max = 50

Популярно: Информатика