| Цитата |
1). Определить номер первого из столбцов, содерж. как минимум 2 нулевых элемента (оформить в виде функции).
|
| Код |
uses crt;
var n,m: Integer;
function poisk(n: Integer; m: Integer): Integer;
var
i,j,k,l,g: Integer;
a: array [1..50,1..50] of Integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
Readln(a[i,j]);
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]);
writeln;
end;
writeln;
k:=0;
l:=0;
for j:=1 to m do
for i:=1 to n do
if (a[i,j]=0) and (l=0) then
begin
k:=k+1;
if k>1 then
begin
l:=1;
g:=j;
end;
end;
if k=0 then
writeln('nulevih elementov net')
else
writeln('stolbez pod #',g);
end;
begin
clrscr;
write('vvedite kolichestvo strok='); Readln(n);
write('vvedite kolichestvo stolbzov='); Readln(m);
poisk(n,m);
readln;
end.
|
Извини, что без комментариев, думаю и так все понятно |
