Question

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

Answer 1

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.