Лабораторные работы по информатике
ИДЗ №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 удовлетворяет условию