Ответы на вопрос:
условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. если оно не нужно - удали фрагмент 'and(a[i,j]< > 0)'
program n1; uses crt; const n=10; var a: array[1..n,1..n] of integer; i,j: integer; p: longint; beginp: =1; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(50); if (a[i,j]< 15)and(a[i,j]< > 0) then p: =p*a[i,j]; write(a[i,j]: 3); end; writeln; end; writeln('proizvedenie =',p); readlnend.
Популярно: Информатика
-
0898765432114.09.2021 07:11
-
Polinka089828.03.2022 20:46
-
Ватрушкасмаком18.06.2021 05:55
-
elyakiselya1730.07.2022 02:45
-
Olyakiti22.05.2022 21:42
-
miroororoe0107.05.2022 09:00
-
Tina210326.06.2023 02:44
-
enigma7508.12.2022 19:43
-
lokotkovasveta16.07.2020 23:28
-
pgvladp0dtcc22.06.2023 17:29