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