Матрицы Опции

[Creator S.]

. Дана целочисленная прямоугольная матрица. Определить:
1) количество строк, содержащих хотя бы один нулевой элемент;
2) номер столбца, в котором находится самая длинная серия
одинаковых элементов.

Я сомневаюсь в правильности этой задачи. Как думаете, здесь нужно что-
нибудь добавить?

Код

program rgz_6;
uses crt;
const
n=3;
m=4;
var x:array[1..m,1..n] of integer;
i,j,k,l,f,imax,jmax,imin,jmin,g,q,tr:integer;
min_element,max_element,max,kl,lk:integer;
p:boolean;
begin
  clrscr;
  for i:=1 to m do
   begin
     for j:=1 to n do
      begin
       write('Введите[',i,' ',j,']элемент:');
       readln(x[i,j]);
      end;
     WRITELN;
   end;
   for i:=1 to m do
   begin
     for j:=1 to n do
      begin
       write(x[i,j],'  ');
      end;
     WRITELN;
   end;
readln;
  p:=false;
  for i:=1 to m do
   begin
   for j:=1 to n do
     if x[i,j]=0 then
                      begin

                       for j:=1 to n do
                         if x[i,j]=0 then
                              begin
                                  p:=true;
                              end;
                           g:=g+1;
                           p:=false;
                       end;
                      end;
                      

if g>0 then
if g=1 then Writeln('1 stroka sodergit 0')
  else Writeln(g,' stroki sodergat 0')
   else writeln ('Strok sodergashih 0 NET');
for j:=1 to n do
begin
min_element:=x[1,j];
imin:=1;jmin:=j;
for i:=1 to m do
       if x[i,j]=x[i-1,j] then
       begin
         min_element:=x[i,j];
         imin:=i;
         jmin:=j;
       end;
kl:=jmin;
max:=0; tr:=0;
for lk:=1 to m do
   begin
    if min_element=x[lk,kl] then
       begin
        tr:=tr+1;
       end;
   end;
  if tr>1 then writeln('povtorov ',tr,' ctolbech ',jmin)
  else
  writeln('povtorov NET');
end;
readln;
end.

Сообщение отредактировано: APAL - 21.12.2005 0:55

[FreeMan]

Код

g:=0;
for i:=1 to m do for j:=1 to n do if a[i,j]=0 then begin inc(g); break end;

это поиск кол-ва строк с нулями