Паскаль даны четыре целых числа. найти сумму четных и нечетных чисел.

268

374

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

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

S1nneR67

Информатика

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

Var a: array [1..4] of integer; i, sf, ss : integer; begin for i: =1 to 4 do begin a[i]: = random(50)+1; writeln(a[i]); if a[i] mod 2 = 0 then sf: =sf+a[i] else ss: = ss+a[i]; end; writeln('сумма четных: ', sf, ' ; сумма нечетных: ', ss); end.