Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.