Задача 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

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

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

mas – массив чисел i, j – индексы массива S1, S2 – сумма элементов главной и обратной диагоналей