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

Спасибо большое, выручили:)

Обращайтесь

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