рефераты
рефераты рефераты
 логин:   
 пароль:  Регистрация 

МЕНЮ
   Архитектура
География
Геодезия
Геология
Геополитика
Государство и право
Гражданское право и процесс
Делопроизводство
Детали машин
Дистанционное образование
Другое
Жилищное право
Журналистика
Компьютерные сети
Конституционное право зарубежныйх стран
Конституционное право России
Краткое содержание произведений
Криминалистика и криминология
Культурология
Литература языковедение
Маркетинг реклама и торговля
Математика
Медицина
Международные отношения и мировая экономика
Менеджмент и трудовые отношения
Музыка
Налоги
Начертательная геометрия
Оккультизм и уфология
Педагогика
Полиграфия
Политология
Право
Предпринимательство
Программирование и комп-ры
Психология - рефераты
Религия - рефераты
Социология - рефераты
Физика - рефераты
Философия - рефераты
Финансы деньги и налоги
Химия
Экология и охрана природы
Экономика и экономическая теория
Экономико-математическое моделирование
Этика и эстетика
Эргономика
Юриспруденция
Языковедение
Литература
Литература зарубежная
Литература русская
Юридпсихология
Историческая личность
Иностранные языки
Эргономика
Языковедение
Реклама
Цифровые устройства
История
Компьютерные науки
Управленческие науки
Психология педагогика
Промышленность производство
Краеведение и этнография
Религия и мифология
Сексология
Информатика программирование
Биология
Физкультура и спорт
Английский язык
Математика
Безопасность жизнедеятельности
Банковское дело
Биржевое дело
Бухгалтерский учет и аудит
Валютные отношения
Ветеринария
Делопроизводство
Кредитование



Главная > Программирование и комп-ры > Лабораторные работы по информатике

Программирование и комп-ры : Лабораторные работы по информатике

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

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




Информационная Библиотека
для Вас!



 

 Поиск по порталу:
 

© ИНФОРМАЦИОННАЯ БИБЛИОТЕКА 2010 г.