Чтение RSS
Рефераты:
 
Рефераты бесплатно
 

 

 

 

 

 

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


ИДЗ №1

Дан одномерный массив Найти среднее арифметическое элементов массива, имеющих чётные номера и удовлетворяющих условию , а также сумму положительных элементов массива. Все отрицательные элементы исходного массива разделить на найденное значение суммы.


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 удовлетворяет условию


-----------------------


 
     
Бесплатные рефераты
 
Банк рефератов
 
Бесплатные рефераты скачать
| Интенсификация изучения иностранного языка с использованием компьютерных технологий | Лыжный спорт | САИД Ахмад | экономическая дипломатия | Влияние экономической войны на глобальную экономику | экономическая война | экономическая война и дипломатия | Экономический шпионаж | АК Моор рефераты | АК Моор реферат | ноосфера ба забони точики | чесменское сражение | Закон всемирного тяготения | рефераты темы | иохан себастиян бах маълумот | Тарых | шерхо дар борат биология | скачать еротик китоб | Семетей | Караш | Influence of English in mass culture дипломная | Количественные отношения в английском языках | 6466 | чистонхои химия | Гунны | Чистон | Кус | кмс купить диплом о language:RU | купить диплом ргсу цена language:RU | куплю копии дипломов для сро language:RU
 
Рефераты Онлайн
 
Скачать реферат
 
 
 
 
  Все права защищены. Бесплатные рефераты и сочинения. Коллекция бесплатных рефератов! Коллекция рефератов!