Дано пять чисел найти среднее число

Question

Информатика

Абдукаюль

24 апреля, 11:23

Дано пять чисел найти среднее число

+3

Ответы (1)

Знаете ответ?

Десанка · Answer 1

program z_1;

var i, a, s:integer;

begin

s:=0;

for i:=1 to 5 do begin

writeln ('Введите', i,'-е число') ;

readln (a) ;

s:=s+a;

end;

writeln ('Среднее арифметическое чисел равно', s/5) ;

end.