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

Question

Информатика

Богалюб

15 октября, 03:59

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

+4

Ответы (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.