Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Kairas
27.04.2021 14:31 •
Информатика
Дан целочисленный массив из 30-ти элементов.написать программу,которая позволит найти среднее арифметическое положительных элементов массива .
Показать ответ
Ответ:
Flexx1337
27.06.2020 01:33
Паскаль:
var mas : array[1..30] of longint;
n,i : longint;
r : real;
begin
for i:=1 to 30 do read (mas[i]);
n:=30; r:=0;
for i:=1 to 30 do begin
if mas[i]<1 then begin mas[i]:=0; n:=n-1;
r:=r+mas[i];
end;
writeln(r/n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
salatinabbasova
06.03.2020 23:20
Написать программу вычисления функции y= ax^4+b^3/sqrt x + cos^2cдля a, b, c, х, задаваемых при выполнении программы....
DAYDEMON
25.02.2021 01:08
Вычислить произведение нечетных чисел от 5 до 100 с цикла. И вывести результат на экран...
imam1707
21.01.2020 21:25
Для хранения растрового изображения размером 128 * 128 пикселей отвели 4 Кб памяти. Каково максимально возможное число цветов в палитре изображения?...
piiip
15.08.2020 06:16
Справа приведена программа, было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–2, 3); (2, 5); (0,...
kerillponomarenco
22.10.2022 13:04
Написать программу лягушка для рисования лягушки на питон graph.py. (нужно чтобы получилось как показано на образце (домик не надо)...
ХацуноМико
03.04.2022 07:42
Вывести: n+(n−1)+(n−2)+(n−3)+...+3+2+1. Формат входных данныхВводится целое положительное число n (1≤n≤213).на PytonФормат выходных данныхВывести сумму, сформированную...
uchenik5713
19.12.2020 16:04
Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X = 3) И НЕ (X = 7). Решите нужно...
zu3vaelina
25.01.2021 20:29
Задача: прибор может показать 100 значений. Наблюдатель записал 50 значений, которые показал прибор. Информационный размер сообщения (кол-во байт)...
djghjc13
19.02.2020 16:05
Як людина сприймає інформацію?...
Оаоагигвшпоа
10.08.2020 07:44
Ақпарат дегеніміз не...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var mas : array[1..30] of longint;
n,i : longint;
r : real;
begin
for i:=1 to 30 do read (mas[i]);
n:=30; r:=0;
for i:=1 to 30 do begin
if mas[i]<1 then begin mas[i]:=0; n:=n-1;
r:=r+mas[i];
end;
writeln(r/n);
end.