Массивы
Автор: Evgen77777 • Ноябрь 14, 2020 • Лабораторная работа • 350 Слов (2 Страниц) • 238 Просмотры
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное учреждение
Высшего образования
Пермский национальный исследовательский политехнический университет
Кафедра «Информационные технологии и автоматизированные системы»
Отчет по лабораторной работе №2
Массивы.
Выполнил работу
студент группы
Проверила
Доцент кафедры ИТАС
Полякова О.А.
Пермь 2019
План
- Постановка задачи;
- Анализ задачи;
- Блок-схема;
- Текст программы;
- Результат решения программы.
Постановка задачи
Взять массив целых чисел, количество которых вводится с клавиатуры. Ввести значение каждого элемента массива, сосчитать сумму четных и произведение нечетных элементов массива.
Анализ задачи
- Вводим массив «А» целых чисел. Вводим количество элементов
массива «n».
- Первый цикл «i» отвечает за заполнение массива.
- Обнуляем переменную «s», отвечающую за четных сумму элементов массива. Переменной «p», отвечающей за произведение нечетных элементов массива присваиваем 1. Обнуляем переменную «k» являющуюся счетчиком элементов массива равных 0.
- Второй цикл «i» с помощью условия отвечает за подсчет суммы, произведения и количества нулей.
- Условие проверяет: равно ли количество элементов массива равных нулю количеству элементов массива отличных от нуля.
Блок-схема
[pic 1] |
Текст программы
program massiv; var A: array [0..255] of integer; i, s, n, p, k: integer; begin writeln('Введите количество элементов массива'); Readln(n); writeln; Writeln('Введите массив'); k := 0; s := 0; p := 1; for i := 1 to n do Read(A[i]); for i := 1 to n do if ((A[i]) mod 2 = 0) and ((A[i]) <> 0) then s := s + A[i] else if ((A[i]) > 0) then p := p * A[i] else k := k + 1; if k = n then Writeln('Все элементы массива равны 0') else begin Writeln; Writeln('Сумма четных элементов массива = ', s); Writeln('Произведение нечетных элементов массива = ', p); end; end. |
...