Написать программу нахождения суммы четных и нечетных элементов массива, заполненного случайным образом от -100 до 100 ! нужна программа в

142

498

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

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

mailkostya1992

Информатика

4,7(32 оценок)

Const n=10; var a: array[1..n] of integer; c,d,i: integer; begin randomize; for i: =1 to n do a[i]: =random(201)-100; writeln('заданные числа, с рандома: '); for i: =1 to n do writeln(a[i],' '); for i: =1 to n do if a[i] mod 2=0 then c: =c+a[i] else d: =d+a[i]; writeln('сумма четных элементов: ',c); writeln('сумма нечетных элементов: ',d); end.