МС
Максим Сташков

решите задачу по информатике : найдите среднюю арифметическую отрицательных элементов массива У (10)".

не могу решить задачу по информатике паскаль

составить программу на NURBO PASCAL

пожалусто напишите полную программу от начала до конца буду блогадарен

АБ
Алексей Баранов

for i := 1 to 10 do if (a[ i ] < 0) then begin s := s + a[ i ]; c := c + 1; end; if (c > 0) then writeln( 'Avg = ' + FloatToStr( s / c );

Похожие вопросы
Помогите решить задачу в паскале! Найти максимальный отрицательный элемент массива А (13) и удалить его.
Помогите пожалуйста по информатике! Задача: Вычислить сумму элементов массива
найти среднее арифметическое элементов массива
Написать программу, которая вычисляет среднее арифметическое положительных элементов массива?
если среднее арифметическое положительных элементов матрицы больше заданной величины, заменить все отрицательные элемент
Задача по информатике. Поменять в массиве местами максимальный и минимальный элементы
Задачи на массивы информатика:
Найти среднее арифметическое отрицательных элементов этого массива
найти в массиве А количество элементов больших, чем их среднее арифметическое на Бейсике
Помогите с задачей пожалуйста! Задан массив c[N]. Найти среднее арифметическое всех элементов массива.