| Код |
type
TArr= array[1..20,1..20] of integer;
function countRowsNoZero(ar: TArr; N: integer): integer;
var i,j,count: integer;
begin
count:= 0;
for i:= 1 to N do
begin
count:= count + 1;
for j:=1 to N do
if ar[i,j] = 0
then
begin
count:= count - 1;
break;
end;
end;
countRowsNoZero:= count;
end;
var Arr: TArr;
N,i,j: integer;
begin
writeln('Введите размерность матрицы');
readln(N);
if N< 1
then
begin
writeln('Как минимум одна строка и как минимум один столбце должны быть');
N:= 1;
end;
if N> 20
then
begin
writeln('Извините, программа не может обработать более 20 строк и более 20 столбцов');
N:= 20;
end;
writeln('Вводите матрицу:');
for i:= 1 to N do
begin
writeln('Строка', i);
for j:= 1 to N do
begin
writeln('Элемент ',j);
readln(Arr[i,j]);
end;
end;
writeln('Количество строк, в которых нет нулевых элементов:', countRowsNoZero(Arr,N));
end.
|
|
