Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Іруна
13.06.2021 20:27 •
Информатика
Задан массив а из 10 целых чисел. найти среднее арифметическое всех элементов массива.
Показать ответ
Ответ:
20setora03
12.07.2020 15:19
Var a:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
luneix123
12.04.2023 22:32
Студент Валера являет собой классический пример лентяя. На занятия он практически не ходит, и только в конце семестра появляется в университете и сдает ”хвосты”. Его заветная мечта:...
fainanem
01.06.2023 19:30
Распечатать таблицу значений F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем написать программу на языке С++)...
adadad2
23.07.2021 16:56
Что делать если при заходи в сервер в кс го перестаёт работать звук?...
Полинка8769532578
06.06.2022 03:40
Нужно сделать задачи с программы Python! Заранее Две переменные (целые числа в диапазоне от 1 до 15) - А и В генерируются случсайным образом и выводятся на экран. Если их значения...
KiviMan1246
03.04.2021 08:09
РЕШИТЬ В DEV C++ Задача 1 Ввести число. Если оно чётное, разделить его на 4, если нечётное- умножить на 5. Расчётные данные для самопроверки результата: Входные данные Выходные...
nastenka082004
16.03.2023 08:07
Як відокремити коментар в тексті програмного коду? *...
dima3693
05.03.2021 07:54
1задача : В классе в котором учатся Петя и Ваня 31человек.Сколькими можно выбрать из класса футбольную команду (11человек)так чтобы петя и ваня не ходили в команду одновременно.2...
VikaCat3364
11.08.2021 18:31
ть будь ласка, написати мовою Delphi Дуже...
kaaanrakun
22.11.2022 03:37
Написать игру «Кубики». Пользователь и компьютер по очереди бросают 2 кубика. Победитель — тот, у кого по результатам 3х бросков сумма больше. Предусмотреть красивый интерфейс...
Georgii1998
22.06.2022 08:49
Var x,y:real; al,b1:integer; mn, gr:longint; якого типу змінна b1?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.