Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

Лабораторные работы по информатике

Работа из раздела: «Программирование и комп-ры»


ИДЗ №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]




ref.by 2006—2022
contextus@mail.ru