Информатика: Решить, информатика совсем не даётся)

annakislova20

28.07.2020 11:05

Информатика

Есть ответ 👍

Решить, информатика совсем не даётся)

139

484

Посмотреть ответы 2

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

angel3530

Информатика

4,5(51 оценок)

ответ:

я не знаю

объяснение:

еще не изучал, но наверное:

avcbs

Даша6741

Информатика

4,5(16 оценок)

Var arr: array[1..6,1..3] of integer; i,j: integer; p: longint; begin randomize; p: =1; for i: =1 to 6 do begin for j: =1 to 3 do begin arr[i,j]: =random(10); write(arr[i,j]: 5); end; writeln; end; for i: =1 to 6 do begin if i mod 2< > 0 then begin for j: =1 to 3 do if arr[i,j]> 0 then p: =p*arr[i,j]; end; end; writeln('произведение положительных элементов нечетных строк: ', p); end.