PASCALС клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел
PASCAL
С клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел
Гость
Ответ(ы) на вопрос:
Гостьprogram D1KPxx18;
uses crt;
var
a,s,k,i:integer;
begin
for i:=1 to 10 do
begin
read(a);
if a mod 2=0 then
begin
s:=s+a;
inc(k);
end;
end;
writeln(s/k);
end.
Не нашли ответ?
Похожие вопросы