Материалы сайта
Это интересно
Лабораторные работы по информатике
ОДЗ №1 Задан одномерный массив. Найти среднее арифметическое элементов, делящихся на 3 без остатка и количество положительных элементов с чётными номерами. Найденное среднее вычесть из значения последнего элемента. INPUT "Ввести массив N="; N DIM A(N) FOR I = 1 TO N PRINT "A("; I; ")="; INPUT A(I) NEXT I S = 0: K = 0: L = 0 FOR I = 1 TO N IF A(I) MOD 3 = 0 THEN S = S + A(I) K = K + 1 END IF NEXT I FOR I = 2 TO N STEP 2 IF A(I) > 0 THEN L = L + 1 END IF NEXT I PRINT "L="; L IF K = 0 THEN PRINT "Нет среднего значения" ELSE SR = S / K A(N) = A(N) - SR FOR I = 1 TO N PRINT "A("; I; ")="; A(I) NEXT I END IF ----------------------- [pic]