Материалы сайта
Это интересно
Лабораторные работы по информатике
ИДЗ №1 Дан одномерный массив [pic] Найти среднее арифметическое элементов массива, имеющих чётные номера и удовлетворяющих условию [pic], а также сумму положительных элементов массива. Все отрицательные элементы исходного массива разделить на найденное значение суммы. INPUT "Ввод массива"; N FOR I = 1 TO N PRINT "A("; I; ")="; INPUT A(I) NEXT I S = 0: K = 0 FOR I = 2 TO N STEP 2 IF A(I) > -10 AND A(I) < 5 THEN S = S + A(I) K = K + 1 END IF NEXT I P = 0 FOR I = 1 TO N IF A(I) > 0 THEN P = P + A(I) END IF NEXT I FOR I = 1 TO N IF A(I) < 0 THEN A(I) = A(I) / P END IF NEXT I IF K = 0 THEN PRINT "Деление на 0" ELSE SR = S / K END IF PRINT "Вывод нового массива" FOR I = 1 TO N PRINT "A("; I; ")="; A(I) NEXT I PRINT "Сумма положительных элементов="; P PRINT "Средне арифметическое значение="; SR |N |X1|X2|X3|X4|X5| |5 |1 |-2|3 |4 |-5| P=8 удовлетворяет условию [pic] [pic] [pic] ----------------------- [pic]