Функция FAKT
Процедура SUMMA
Функция STEPEN
Задача 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
|
