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

Question

Информатика

Толяха

23 июня, 17:44

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

+4

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