tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести с клавиатуры массив из
Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива. abc pascal. через for,,repead
kutluyulovarrr
2 25.07.2019 05:50
2
Ответы
orynbasar2001
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fantomac718
17.11.2020 10:04
Решите Нужно сделать не сколько примеров по инфеорматике в виде таблицы...
londonparisch
28.11.2021 19:45
решить задачу по информатике в EXCEL!...
alholod2p00me0
28.11.2021 19:45
Какому знаковому десятичному числу соответствует обратный код 10000010?...
katrin7878
13.06.2021 12:07
Для логического выражения построить логическую схему...
Nanaw45
13.06.2021 12:08
Артур составляет 6 -буквенные коды из букв З, Д, А, Н, И, Е. Каждую букву нужно использовать ровно один раз, при этом нельзя ставить рядом ни две гласные, ни две согласные. Сколько...
August333
11.11.2020 09:32
1.Чем в информатике интересно число 256?2.Объясните почему и с чем связано появление 10, 2, 8 и 16 систем счисления (про каждую расскажите подробно)3.Чем позиционная система отличается...
olegmelkov
10.04.2019 17:18
Для каждого из имён вычислите значение логического выражения: первая буква гласная ^ вторая буква согласная . руслан, анна, степан, егор...
Tgfdvbgg
24.05.2019 10:00
Международные торгово-финансовые связи испании ( что экспортируют)...
vlad1435
24.05.2019 10:00
Уравнение (x-90)-705=1000 1800+(800-у)=900...
andreitwin
24.05.2019 10:00
Решите пример поже с решением х+23=41 36+у=74 85+z=97...
Популярные вопросы
.Хорда АВ равна 8. Найти радиус окружности, если дуга АВ равна 90 градусов....
3
Конспект по теме Серебряный век. Основные понятия, представители, особенности...
2
Подчеркните грамматические основы 1) Солнце как будто запоздало в это утро и,...
1
Маша и Петя. Маша может прополоть картофельную борозду за 9 минут(-ы), а Петя...
1
0,5(х-2) + 0,4 = 0,4 (х-1) Найти корень уравнение...
2
Выпиши из предложений и распредели в колонки обращения. 1. Здравствуй в белом...
1
Вычислите приближённая округлить число до десятках и сравните.61*5 28*3...
3
Сообщение Стили и направления зарубежного изобразительного искусства...
3
1 задание Дано: прямоугольный треугольник АВС угол С равный 90 г. АВ+ВС=15 см....
2
Найдите точки пересечения прямых y=2x+11 и y=-3x+11...
1
//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