Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alex2071
07.03.2021 11:50 •
Информатика
Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива. abc pascal. через for,,repead
Показать ответ
Ответ:
TheEasyCloud
24.09.2020 10:57
//Pascal ABC.NET v3.1 сборка 1172
//For
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//while
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//repeat
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.
Пример ввода:
1
2
1
2
1
Пример вывода:
1.4
0,0
(0 оценок)
Популярные вопросы: Информатика
простоНастя2228
06.01.2022 05:43
Чем отличается создание презентации от создания программного обеспечения?...
cerenkovvladimi
13.10.2021 12:13
Пoмoгите в шкoлу через 20 мин...
ромб13
15.11.2020 13:56
Продолжите ряд: монитор, принтер, … сканерклавиатураакустические колонкисистемный блокмышь...
xAlonerx
06.08.2021 18:37
решить 6) Исполнитель Робот передвигается по клетчатому полю, выполняя команды, которым присвоены номера: 1 – на клетку вверх, 2 – на клетку вниз, 3 – на клетку вправо,...
Salina1904
06.08.2021 18:37
Сұрақтарға жауап жазу.2.Презентация деген не?3. Презентацияны қандайпрограммада жасауғаболады?Жиынтық жазбаған оқушыбүгін тапсырыңыздар....
taisijaljalko
13.07.2020 13:01
144-147 стр. сделать краткий конспект....
saralis
10.10.2021 21:02
Скорость передачи данных по некоторому каналу связи равна 128 000 бит/с. Передача данных через это соединение заняла 2 минуты 8 секунд. Определите информационный объём...
Turtle183119
28.05.2022 19:44
Какое место занимает игра в жизни человека...
Aiauka11
20.07.2022 13:09
Используя распределительное свойство умножения вычислите значение произведения 1) (-98) × (-21) 2) (-17)*105...
Крутой649
19.11.2022 08:00
Основанием пирамиды является трапеция со сторонами a, a, a, 2a. две боковые грани перпендикулярны плоскости основания, а одна из двух других составляет с ней угол 45. найдите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//For
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//while
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//repeat
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.
Пример ввода:
1
2
1
2
1
Пример вывода:
1.4