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

Срочно, 25 баллов даю
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы