Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
diana55665
26.03.2021 04:44 •
Информатика
Мне нужно решить 5 и 6 задание которое на скриншоте
👇
Увидеть ответ
Открыть все ответы
Ответ:
dsassaraf
26.03.2021
//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
4,7
(45 оценок)
Ответ:
arinaantonuyk
26.03.2021
//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
4,5
(16 оценок)
Это интересно:
К
Компьютеры-и-электроника
04.02.2020
Как загрузить видео, созданное в Windows Movie Maker, на YouTube...
К
Компьютеры-и-электроника
14.03.2020
Как построить классный дом в Sims 3...
Д
Дом-и-сад
05.06.2022
Как выращивать жонкилии: полезные советы и рекомендации...
К
Компьютеры-и-электроника
12.07.2020
Поймай свою рыбку: Как рыбачить в игре Aura Kingdom...
С
Семейная-жизнь
23.04.2021
Как заставить малыша спать всю ночь...
З
Здоровье
04.12.2021
Как предотвратить появление прыщей: советы от специалистов...
К
Компьютеры-и-электроника
10.03.2020
Как быстро и просто повернуть экран компьютера?...
Х
Хобби-и-рукоделие
24.01.2022
Как сделать клей Mod Podge: простые инструкции...
К
Компьютеры-и-электроника
23.07.2020
Как выделить игре Minecraft больше оперативной памяти...
Т
Транспорт
24.03.2022
Как безопасно очистить пластик в автомобиле и сохранить его в идеальном состоянии...
Новые ответы от MOGZ: Информатика
Gulnarhidayetova
09.05.2022
Сделайте в pascale 9 класс информатика...
Артур13487в158168
12.06.2020
1. придумать 2 простых высказывания и используя базовые связки составить составные высказывания (не менее 4х) 2. x = 0, y = 1, z = 1. вычислить значение логического выражения не...
доньак
02.01.2023
Пошагавая инструкция по преобразовываниб из 2ух файлов (xml,xsl) в один (html)...
domaris246
25.05.2021
Вопросы : а) запишите форумулу для ячейки d12 b) запишите формулу расчета квт в месяц в ячейке c)запишите диапазон результата ячейки c15 d) сравните формулу в ячейках d12 и d11...
Griezman7
03.04.2021
Не допустимі символи в логіні та паролі...
Pahamoseuv
18.08.2021
Двумерный массив 1)показывает весь массив 2)показывает количество элементов=0 3)показывает количество четных элементов 4)показывает количество элементов=0 + количество четных элементов...
DanilGorev
18.08.2021
Составить программу паралелограмма в паскале...
malgee4
28.12.2020
Нужно написать программу на языке паскаль условие такое: вводится 15 чисел определить каких чисел кратных трём больше положительных или отрицательных...
margo344
04.05.2020
ПРАКТИЧЕСКОЕ ЗАДАНИЕ ИНФОРМАТИКА...
Валерия1704
28.02.2020
11. Примерами таблиц являются: электронный журнал «фигурное» стихотворение расписание уроков страничка словаря сиквейн программа телепередач...
MOGZ ответил
Топырақтың-биокосты зат екенің дәлелдеңдер...
Сбоку бака для керосина имеется отверстие размером 8 см 2. Этот Высота от центра...
он вступил и темные широкие сени, от которых подуло холодом, как на погреба....
Складіть стислий переказ тексту Удома або Уміння спілкуватися...
Визначте відносну вологість повітря, якщо абсолютна вологість за температури...
По описанию определите тип почвы: Этот тип почвы формируется в условиях хорошо...
Вместе анимает тетради, хвалить, хвалишь. Образец: ругать и Е. : Прочитайте послов...
Массасының арту ретімен орналаспаған сілтілік меттал ...
Амир решил 3/4 заданных задач, и ему осталось решить 2 задачи. Сколько задач...
Қазақстан қорықтар саны жөнінен ТМД - ға кіретін республикалар арасында он алтыншы...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
//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