Добрый день! Помогите, пожалуйста с последним заданием в контрольной. Формулировка: "Написать программу формирования одномерного массива М. Полученный массив напечатать. Выполнить обработку и преобразование массива в соответствии со своим вариантом. Напечатать преобразованный массив. Задание по моему варианту: Определить количество элементов массива, больше среднего арифметического всех его элементов. Получить новый массив путем вычитания из всех элементов наименьшего элемента."
Вот, что я нарешала:
CLS
INPUT "Введите количество элементов М ="; М
DIM Z(M)
PRINT "Исходный массив"
FOR i=1 TO M
INPUT Z(i)
NEXT i
FOR i=1 TO M
PRINT Z(i)
NEXT i
PRINT
REM Вычисление ср. арифм. всех элементов массива
C=0 : k=0
FOR i=1 TO M
INPUT Z(i)
IF Z(i)<0 THEN C=C+Z(i) : k=k+1
NEXT i
S=C/k
PRINT "S="; S
REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов
R=0
FOR i=1 TO M
IF Z(i)<S THEN R=R+1
NEXT i
IF R=0 THEN
PRINT "Количество элементов, больших "; S; "равно "; R
REM Нахождение минимального элемента
FOR i=1 TO M
IF Z(i)< Zmin THEN Zmin=Z(i)
NEXT i
PRINT "Zmin=", Zmin
REM Вычитаем из всех элементов наименьший элемент
.................................................. .................................
А дальше не знаю, как. Сомнения вообще в правильности предыдущего. Кто может, помогите. А то сроки поджимают....