Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.