tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задано n целых чисел. вам
Задано n целых чисел. вам необходимо найти среднее арифметическое этих чисел. гарантируется, что среднее арифметическое всегда целое.
Nezilik
3 25.05.2019 02:20
0
Ответы
саша4290
21.06.2020 01:27
Var count, a, b, N, i: integer;
Begin
writeln('N = ');
readln(N);
for i := 1 to N do
begin
write(i, ': ');
readln(a);
b := b + a;
count := count + 1;
end;
writeln('> ', b/a);
end.
Вот
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Iist
10.03.2019 01:30
Написать программу нахождения суммы большего и меньшего из чисел a,b,c....
Рудиковичный
10.03.2019 01:30
Программа на языке паскаль. дано натуральное n . определить, является ли оно простым....
Луи3а
14.04.2020 13:23
Сілтеме сөзінне ссөзжұмбақ...
OPGG
14.04.2020 13:23
Дз по информатике, составить программу (только по 1 заданию...
kristinashevku1
14.04.2020 13:23
Дан массив из N натуральных чисел. Создать массив из четных чисел этого массива. Если таких чисел нет, то вывести сообщение об этом факте. программа в с написать программу...
Maxyim
14.04.2020 13:23
Напишите программу, которая выводит на экран значение выражения 2¹²³⁴ питон...
zhanara0507
14.04.2020 13:23
Что будет выведено на экранProgram p1;Var a,b: integer;BeginB:=5For a:=1 to b-2 do b:=b-a;Writeln(b);End....
Конник953
14.04.2020 13:23
Спортсмен на тренуванні ставить собі за мету пробігти певну кількість кілометрів, вирішуючи після кожного круга, чи не пора припинити тренування. Виберіть тип циклу, який найбільше...
bomixov
28.08.2019 20:50
(паскль)составьте программу выполняющую расчет площади треугольника...
dashaegirova
28.08.2019 20:50
Ii. написать программу, которая подсчитывает: 1) периметр квадрата, площадь которого равна а; 2) площадь равностороннего треугольника, периметр которого равен р;...
Популярные вопросы
Написать краткое условие 2 м сатину коштують 18 грн, а 1м ситцю-4 грн.на скільки...
2
Вот текст. я не стану отрицать , что близ полюса может находится континент или...
1
Сократите: 1) 12*21 дробная черта 35*15 2) 72*11 дробная черта 33*30...
3
Просто не 1)(2928-88) : 142 2)15 732: 57 : (156: 13)...
3
Напишите следующие предложения во множественном числе, изменяя также форму глагола...
2
Чисто протонов ,нейтронов и электронов у серы?...
3
Найдите верное суждение.1) глаголы в настоящем и будущем времени изменяются по...
2
Молекулярная масса вещества э2со3 равна 106.определите какой элемент(э)входит...
3
Приехало 5 грузовых и 2 легковые машины, сколько стало машин, её решить и составить...
3
Поезд, идущий со скоростью 15 м/с, остановился через 20 с после начала торможения....
2
Begin
writeln('N = ');
readln(N);
for i := 1 to N do
begin
write(i, ': ');
readln(a);
b := b + a;
count := count + 1;
end;
writeln('> ', b/a);
end.
Вот