Задача 5

1. Условие: Составить схему алгоритма и написать ВР-программу обработки одномерного массива целых чисел (вид обработки см. в табл. П. 2). Результат вывести на экран дисплея.

Пример: вид обработки заключается в подсчете количества положительных элементов массива.

2. Текст программы:

PROGRAM z5;

VAR mas:ARRAY[1..10] OF INTEGER; (* массив *)

i,kol:INTEGER; (* переменная цикла, количество *)

BEGIN

WRITELN (‘Введите значения элементов массива’);

FOR i=1 TO 10 DO

READ (mas[i]);

kol:=0;

FOR i:=1 TO 10 DO

IF mas[i]>0 THEN kol:=kol+1;

IF kol>0 THEN

WRITELN (‘Кол-во положительных элементов в массиве =’,kol:2)

ELSE

WRITELN (‘Положительных элементов в массиве нет’)

END.

3. Схема алгоритма задачи 5

Вывод результатов

Заполнение массива

Объявление переменных

mas – массив чисел i – индекс массива KOL – количество положительных чисел