Регистрация
Alika19891
14.06.2021 11:30
Информатика
Есть ответ 👍

СДЕЛАТЬ!!! 25 БАЛЛОВ
НА ЯЗЫКЕ ПАСКАЛЬ

237
242
Посмотреть ответы 3

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

semik1232
semik1232
4,4(49 оценок)

6,12,18,30,36,,,,48,60

тупая761
тупая761
4,6(3 оценок)

6,12,18,30,36

47,64

Объяснение:

.....

evakozyreva03
evakozyreva03
4,7(95 оценок)
Const n = 5; var i, j, total_p, total_o: integer; a: array[1..n, 1..n] of integer; begin     for i : = 1 to n do begin         for j : = 1 to n do begin           a[i, j] : = random(20) - 10;           write(a[i, j]: 3);           if(a[i, j] < 0) then inc(total_o)           else inc(total_p);         end;         writeln;     end;     writeln('кол-во положительных эл-тов: ', total_p);     writeln('кол-во отрицательных эл-тов: ', total_o); end.

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