Срочно, 25 баллов даю

Question

Срочно, 25 баллов даю

---

Answer 1

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;

writeln('Сумма: ',sum);
writeln('Ср. арифметическое: ',mid);
writeln('Разность четных: ',rp);
writeln('Разность нечетных: ',rnp);

end.

Comments

если ввести количество чисел больше 7, работать не будет (исправляется изменением верхней границы массива в блоке описания переменных)