Прокрастинация
Var a: array [1..7] of integer; sum, rp, rnp, n, i: integer; mid: real; begin sum:=0; rp:=0; rnp:=0; writeln('Введите количество чисел.'); readln(n); for i:=1 to n do begin readln(a[i]) end;
for i:=1 to n do sum:=sum+a[i]; mid:=sum/n;
for i:=1 to n do begin if a[i] mod 2=0 then rp:=rp+a[i] end;
for i:=1 to n do begin if a[i] mod 2<>0 then rnp:=rnp+a[i] end;
Answers & Comments
begin
sum:=0;
rp:=0;
rnp:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=1 to n do begin
readln(a[i])
end;
for i:=1 to n do sum:=sum+a[i];
mid:=sum/n;
for i:=1 to n do begin
if a[i] mod 2=0 then rp:=rp+a[i]
end;
for i:=1 to n do begin
if a[i] mod 2<>0 then rnp:=rnp+a[i]
end;
writeln('Сумма: ',sum);
writeln('Ср. арифметическое: ',mid);
writeln('Разность четных: ',rp);
writeln('Разность нечетных: ',rnp);
end.