Регистрация
berezkina04
23.01.2023 02:32
Информатика
Есть ответ 👍

с информатикой.
Упростите выражение:

218
236
Посмотреть ответы 1

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

staisywell1
staisywell1
4,6(78 оценок)
Var a, b, c, d, i, j : integer;       s : array [1..100,1..100] of integer; begin     b: =63999;     c: =-63999;     for i: =1 to 15 do       begin       writeln;       for j: =1 to 15 do           begin           s[i,j]: =random(127998)-63999;           a: =a+s[i,j];           if s[i,j]> c then c: =s[i,j];           if s[i,j]< b then b: =s[i,j];           write (s[i,j],' ');           end;       end;     writeln;     writeln ('сумма элементов  = ', a);     writeln ('максимальный элемент = ', c);     writeln ('минимальный элемент = ', b); end.

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