Предмет: Информатика,
автор: Аноним
Выручайте! Составить программу на pascal abc.
Приложения:
Ответы
Автор ответа:
1
Program asd;
Uses crt;
var a:array [1..100] of integer;
i:integer;
s:real;
begin
readln (n);
for i:=1 to n do
begin
readln (a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln (s);
end.
Интересные вопросы
Предмет: Литература,
автор: tynysbajrasul100811
Предмет: Биология,
автор: aajnagul411
Предмет: Русский язык,
автор: Alinamaima4217
Предмет: Математика,
автор: tryamkinigor
Предмет: Математика,
автор: KekSik22834