Читайте также:
|
Заполнение квадратной матрицы случайными элементами. Подсчет количества элементов квадратной матрицы равных нулю.
объявление двумерного массива размера 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);
Дата добавления: 2015-07-11; просмотров: 45 | Нарушение авторских прав