Готовимся к уроку

массива
описание массива
типовые задачи обработки двумерных массивов

Урок 43-44

begin
For i :=

Заполнить произвольный массив размером N x N (N<10) по следующему правилу:
11111
22222
33333
44444
55555

ClrScr;
Write('ВВеди N = ');Readln(n);
For j:=1 to n do begin
For i:=1 to n do begin
a[j,i]:=j;
write(a[j,i]:4);
end;
writeln;
end;

Значение элемента в каждой ячейке строки равно номеру строки.

2

3
4
Главная диагональ:
I=J
Побочная диагональ:
I+J=N+1
Заполнить

ClrScr;
Write('ВВеди N = ');Readln(n);
For j:=1 to n do begin
For i:=1 to n do begin
if (i+j = n+1) then a[j,i]:=1
else a[j,i]:=0;
write(a[j,i]);
end;
writeln;
end;

Если побочная диагональ то заполнить ячейку 1 во всех остальных случаях 0

a j , i
j , 1, N
a j , i=

Ввод N

i+j=N+1

a j , i= 1

Да

Нет

2

3

1 2 3 4 5

2 3

1

2

3

4

5

3

4

5

a42

a51

a24

a15

(i+j

(i+j>n+1) And (j

(i+j>n+1) And (j>i)

(i+ji)

Системы неравенств

правилу:

Это пересечение двух множеств. Элементы лежащие на и ниже побочной диагонали и элементы лежащие на и выше главной диагонали

Write('ВВеди N = '); Readln(n);
For j:=1 to n do begin
For i:=1 to n do begin
if (i+j>=n+1) and (j<=i) then a[j,i]:=1
else a[j,i]:=0;
write(a[j,i]:2);
end;
writeln;
end;

Проверяем условие принадлежности данному множеству

[-10 ; 10] и найти сумму элементов массива лежащих на

Один или два прохода по массиву?

Первый способ. Один проход по массиву
ClrScr;
Write('ВВеди N = ');Readln(n);
s:=0;
For j:=1 to n do begin
For i:=1 to n do begin
a[j,i]:=random(20)-10;
write(a[j,i]:4);
if (i=j) then s:=s+ a[j,i];
end;
writeln;
end;
writeln('Сумма элементов =',s:5);

Заполняем случайными числами и выводим на экран

И сразу же находим сумму элементов лежащих на главной диагонали

Второй способ. Два прохода по массиву
Write(' ВВеди N = ');Readln(n);
s:=0;
For j:=1 to n do begin
For i:=1 to n do begin
a[j,i]:=random(20)-10;
write(a[j,i]:4);
end;
writeln;
end;
For j:=1 to n do
For i:=1 to n do
if (i=j) then s:=s+ a[j,i];
writeln('Сумма элементов =',s:5);

Первый проход. Заполняем массив и выводим его на экран

Второй проход. Находим сумму.

Замечание.
Если нужно что то сделать только
с главной диагональю,
то можно обойтись без вложенных циклов
For j:=1 to n do s:=s+ a[j,j];

j, i=
случайное[-10;10]
Ввод N
S = 0
i = j
S =S +

Вывод S

Да

Нет

Нахождение суммы элементов на главной диагонали за один проход по массиву

S
Нахождение суммы элементов на главной диагонали за два прохода (в

N x N случайными числами из интервала [-10 ; 10]

to n do begin
For i:=1 to n do

которое может выдать генератор случайных чисел это 10. Все остальные

С анализом исходных данных задачи
Write('ВВеди N = ');Readln(n);
m:=10;
For j:=1 to n do begin
For i:=1 to n do begin
a[j,i]:=random(21)-10;
write(a[j,i]:4);
if (a[j,i] end;
Writeln;
end;
writeln(' Минимальный элемент лежащий на главной диагонали =',m:5);

Предполагаем, что самое маленькое число 10, правая граница исходного интервала.

Заполняем, выводим на экран и сразу проверяем на минимальность в главной диагонали.

[-10 ; 10] и найти максимальный элемент в каждой строке.

max:=-10;
For i:=1 to n do begin

Решение в один проход,
с анализом задачи

Предполагаем, что самое большое число - 10, левая граница исходного интервала.

Перебираем строки

Заполняем элемент массива и выводим его на экран

Если в строке встречается элемент больше максимального, то он становится максимальным

Выводим наибольший элемент в строке

N
a j , i=
случайное[-10;10]
Ввод N
Мах = - 10
a j,

Max = a j, i

Вывод Max

Да

Нет

Нахождение максимального элемента в каждой строке в один проход

Конец

do begin
For i:=1 to n do begin

Заполняем массив и выводим его на экран

For j:=1 to n do begin
max:=a[j,1];
For i:=2 to n do if (a[j,i]>max) then
max:= a[j,i];
writeln('В ',j,' строке max = ',max:5);
end;

Перебираем строки

Предполагаем, что наибольший элемент в каждой строке стоит на первом месте

Идем по строке и если находим элемент больший чем максимальный, то он становится максимальным

Вывод наибольшего элемента в строке

Стандартным способом,
первый проход – заполнение,
второй проход – поиск
максимального в строках

j, i=
случайное[-10;10]
Ввод N
1
i , 2, N
j , 1, N
Мах

a j, i > Max

Max = a j, i

Вывод Max

Да

Нет

1

Начало

Конец

Нахождение максимального элемента в каждой строке в два прохода

из n строк и n столбцов (1 ≤ n ≤ 5) заполняемый с клавиатуры.

Задача 43_3 Задан двумерный целочисленный массив A из n строк и n столбцов (1 ≤ n ≤ 10). Составить программу на Pascal, которая подсчитывает сумму элементов массива, лежащих над главной диагональю, произведение – лежащих под главное диагональю и среднее арифметическое элементов главной диагонали.

Задача 43_1 Задан двумерный целочисленный массив В из m строк и m столбцов (1 ≤ n ≤ 10) заполненный случайными числами в интервале от -30 до +30. Составить программу на Pascal, которая подсчитывает произведение элементов массива, лежащих вне главной диагонали.