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

Задача 6

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

Пример: вид обработки заключается в определении той диагонали квадратной матрицы (главной или обратной), которая имеет большую сумму элементов.

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

PROGRAM z6;

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

i,j,s1,s2:INTEGER; (* 2 индекса циклов, 2 суммы *)

BEGIN

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

FOR i:=1 TO 3 DO

FOR j:=1 TO 3 DO

READ (mas[i,j]);

s1:=0;

s2:=0;

FOR i:=1 TO 3 DO

BEGIN

j:=3-(i-1);

sl:=s1+mas[i,i];

s2:=s2+mas[i,j];

END;

IF s1>s2 THEN

WRITELN (‘Сумма элементов главной диагонали’)

ELSE

IF s2>s1 THEN

WRITELN(‘ Сумма элементов обратной диагонали’)

ELSE

WRITELN(‘ Суммы элементов диагоналей равны’);

END.

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