Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nikj12320
20.12.2021 02:08 •
Информатика
Найти среднее арифметическое элементов целочисленного массива ,кол-во элементов 8
Показать ответ
Ответ:
bringm1
05.10.2020 02:52
Program sr;
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write('a[', i, '] = ');
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln('среднее: ', avg);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
teta89p016as
11.01.2020 13:31
Известны за и количество найденных по ним страниц некоторого сегмента сети Интернет:Чему равен x, если все за выполнялись практически одновременно, т.е. во время выполнения...
evafadeeva05
03.09.2022 14:22
Самый современный информационный канал 6 букв...
leron9999
05.02.2021 06:21
Нужно решить через программу pascal abc...
BarsicX
22.02.2022 20:53
? Дана таблица истинности для некоторого выражения.Какое из перечисленных выражений соответствует этой таблице?...
PavlWhite249
29.05.2020 14:59
Из перечня имён выберите те, которые удовлетворяют маске «? l*ck.*t? »: click.txt ; black.ppt; lock.sts; clock.tt; blink, uta; applock.stu; blocker.htm; elpack.ty; blocker.html...
МарияТуз
06.02.2022 01:19
Рассмотрите проблему.Как относились национальные идеи и проявления интернационализации в европейском общественном движении во второй половине 19 века ?Кто и в каких ситуациях...
VarDim126
25.05.2021 12:40
В одной смене цеха работали 80 рабочих с установленной по режиму продолжительностью рабочего дня 8 часов и 20 рабочих с режимной продолжительностью рабочего дня 7 часов....
ololosha14
27.11.2022 11:59
3Новый материал с.180 пар.61 ВВ.пр.бывают...изучить. Выполнить: а)Дождь,казалось, не только не утихает, но ещё больше усиливается. б) Дождь, как мне кажется,не только не...
балнур6
06.12.2021 09:11
V(см) 12 18 24 30 36 42m(г) 8,4 12,6 16,8 21 25,2 29,4...
Verenea
06.12.2021 09:11
Пока не знаю но говорят то что они ваевали за эту местность этот памятник был построин и в этом году в России был такой сильный ветер и в этом году в Москве...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write('a[', i, '] = ');
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln('среднее: ', avg);
end.