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

Задание во вложении.

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

Var a:array [1..5] of real;
i:integer;
c:real;
begin
c:=0;
for i:=1 to 5 do
begin
write (Введите ,i, число: );
readln (a[i]);
c:=c+a[i];
end;
writeln (Среднее арифметическое 5ти чисел = ,c/5);
end.