Регистрация
Войти
Стать экспертом Правила
Информатика

Нужна помощь срочно!!! Осталось 40 мин. до здачи!!! Прошу Пожалуйста посчитайте!!!выполнить 1 задание из 9надо написать программу в паскале

ОТВЕТЫ

:program zda;

var i,n,p:integer;

a:array[1..100]of integer;

begin

read(n);

for i:=1 to n do

read(a);

for i:=1 to n do

p:=a[1];

write(a[1]+a/n);

end.

674
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам