Регистрация
galina060876
15.12.2021 19:13
Информатика
Есть ответ 👍

5логических операций и их таблицы !

221
379
Посмотреть ответы 1

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

Cuba125
Cuba125
4,8(83 оценок)
Const n = 7; var a: array[1..n]of integer; i: integer; s,sn,p,pn: real; begin s: =0; sn: =0; p: =1; pn: =1; for i: = 1 to n do begin a[i]: =random(7)+1; write(a[i],' '); if a[i] mod 2 = 0 then begin s: =s+a[i]; p: =p*a[i]; end else begin sn: =sn+a[i]; pn: =pn*a[i]; end end; writeln; writeln('сумма чётных элементов =',s); writeln('произведение чётных элементов =',p); writeln('сумма нечётных элементов =',sn); writeln('произведение нечётных элементов =',pn); end.

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