Составить алгоритм среднего арифметического 7 введенных чисел

Question

Информатика

Машуха

30 марта, 18:49

Составить алгоритм среднего арифметического 7 введенных чисел

+1

Ответы (1)

Знаете ответ на вопрос?

Федуля · Answer 1

Var

s: real;

i: byte;

a: array [1 ... 7] of integer;

begin

for i:=1 to 7 do

begin

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

read (a[i]) ;

s:=s+a[i];

end;

s:=s/7;

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

end.