Решите в паскале))))С клавиатуры задано 5 чисел. Найти средне арифмитическое этих чисел.

1

Ответы и объяснения

2014-02-24T11:20:33+00:00
Var a,i,s:integer;
begin
for i:=1 to 5 do begin
read(a);
s:=s+a;
end;
writeln(s/5);
end.