Пример 1. Вычисление количества элементов равных нулю в квадратной матрице

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒

Пример 1. Вычисление количества элементов равных нулю в квадратной матрице

Заполнение квадратной матрицы случайными элементами. Подсчет количества элементов квадратной матрицы равных нулю.

объявление двумерного массива размера 10 на 10

var mas:array[1..10, 1..10] of integer;

i,j,count:integer;

begin

count:=0;

for i:=1 to 10 do

begin

writeln;

for j:=1 to 10 do

begin

заполнение массива случайными числами

mas[i,j]:=random(100);

вывод на экран элементов массива

write(mas[i,j]:6);

подсчет количества элементов равных нулю

if mas[i,j]=0 then inc(count);

end

end;

writeln; writeln;

writeln('Количество элементов равных нулю - ', count);

end.

Пример 2. Вычисление количества элементов равных нулю на главной диагонали в квадратной матрице

Заполнение квадратной матрицы случайными элементами. Подсчет количества элементов на главной диагонали квадратной матрицы равных нулю.

var

mas:array[1..10, 1..10] of integer;

i,j,count:integer;

begin

count:=0;

for i:=1 to 10 do

begin

writeln;

for j:=1 to 10 do

begin

mas[i,j]:=random(100);

write(mas[i,j]:6);

end

end;

for i:=1 to 10 do

if mas[i,i]=0 then inc(count);

writeln; writeln;

writeln('Количество элементов на главной диагонали равных нулю - ', count);

end.

Для побочной диагонали выделенный красным фрагмент кода преобразуется к виду:

for i:=1 to 10 do

if mas[i,10-i+1]=0 then inc(count);

Пример 3. Поиск максимального элемента массива

Дан двумерный массив. Найти максимальный элемент массива.

var

mas:array[1..10, 1..10] of integer;

i,j,count:integer;

begin

count:=0;

for i:=1 to 10 do

begin

writeln;

for j:=1 to 10 do

begin

mas[i,j]:=random(100);

write(mas[i,j]:6);

end

end;

var max:integer;

max:=mas[1,1];

for i:=1 to 10 do

for j:=1 to 10 do

if mas[i,j]>max then max:=mas[i,j];

writeln; writeln('max = ', max);

end.

⇐ Предыдущая 123 Следующая ⇒