Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sulfaandrey
20.09.2022 21:37 •
Информатика
Водномерном массиве найти среднее арифметическое элементов массива(написать программу на паскале)
Показать ответ
Ответ:
Diankamilanka2005
05.10.2020 20:47
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
0,0
(0 оценок)
Популярные вопросы: Информатика
MrKom1
06.10.2022 17:09
Каким образом на языке программирования SCRATCH 2/3 можно сделать большую карту, а не картинку на весь экран?...
Kartakova
13.03.2023 13:21
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов;...
khalitovroman
02.10.2021 17:15
Пользователь работал с каталогом логика. сначала он поднялся на один уровень вверх, затем поднялся ещё на один уровень вверх, потом спустился на один уровень вниз....
Kiraпомошник
17.05.2022 15:45
Дан сценарий скрипта на Scratch. Поясните сценарий на русском языке. Сценарий на Scratch Сценарий на русском языке когда щелкнуть по зеленому флажку всегда если...
Undina705
28.06.2020 19:53
Дан одномерный массив. Запиши верный ответ. −16 29 0 −4 3 13 Значение элемента массива — 13. Индекс элемента массива —?...
your1people
26.07.2020 04:49
ДАЮ ЭТО СОЧ ПАМАГИТИИИ 7. При конденсации пар превратился в воду. А)Изменились ли молекулы вещества вследствие этих преобразований? (1) В) Что изменилось в характере...
Evasionll
10.06.2021 04:13
тоқсан бойынша жиынтық бағалауӨткізілетін күні: «» 2020 жыл саны: 15 5 «» сынып оқушысы ОҚЫЛЫМ. [7]Ерте, ерте, ертеде бүркіт: «Кім күшті?» деген қазақша күрестен...
MeerDasha487
10.06.2021 04:13
подпишитесь на меня мне надо 3к подписчиков в тиктоке Ник @viktorz79...
hola174
10.06.2021 04:13
Что это за орудие труда справо под буквой E...
Savasansa
10.06.2021 04:13
Составь и напиши два предложения по картинке.2)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04