Ответы на вопрос:
var i: integer;
var a : array[1..5] of real;
begin
for i in [1..5] do
begin
write('-> ');
readln(a[i]);
end;
writeln((a[1]+a[2]+a[3]+a[4]+a[5])/5: 0: 2);
end.
Популярно: Информатика
-
Aarna22.10.2022 00:16
-
nastosetrova202.04.2023 16:20
-
алина385113.10.2020 17:56
-
bolatbekaliya12.07.2022 17:24
-
mintotea02.06.2021 12:41
-
Kika22832217.12.2020 04:17
-
reginasachtova05.10.2022 18:19
-
ivankn11.02.2022 10:20
-
znayka14111.06.2020 19:23
-
ahmed005127.10.2020 15:01