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

Question

Информатика

Мир

27 апреля, 06:35

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

+3

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