Двумерные массивы

[vaako]

1.Дан двухмерный массив целых чисел. Во втором столбце имеются элементы, равные 10. Определить номер строки, в которой расположен самый нижний из таких элементов.

2.Дан двухмерный массив. Определить, есть ли в нем хотя бы две строки с одинаковой суммой элементов.

[user125]

Вроде так.
1.

var
   a:array[1..10, 1..10] of integer;
   i,j,z,str,stl:integer;
begin
   randomize;
   write('Введите кол-во строк в массиве. '); readln(str);
   write('Введите кол-во столбцов в массиве. '); readln(stl);
   for i:=1 to str do
      for j:=1 to stl do a[i,j]:=random(100);
   for i:=1 to str do begin
      a[i,2]:=random(20);
      if a[i,2]>9 then a[i,2]:=10;
   end;
   for i:=1 to str do begin
      for j:=1 to stl do write(a[i,j]:3);
      writeln;
   end;
   for i:=1 to str do
      if a[i,2]=10 then z:=i;
   writeln('Самая нижняя 10 второго столбца расположена в ',z,' строке.');
   readln;
end.

2.

var
   a:array[1..10, 1..10] of integer;
   i,j,z,sum1,sum2,str,stl:integer;
   f:boolean;
begin
   randomize;
   write('Введите кол-во строк в массиве.'); readln(str);
   write('Введите кол-во столбцов в массиве.'); readln(stl);
   for i:=1 to str do begin
      for j:=1 to stl do begin
         a[i,j]:=random(10);
         write(a[i,j]:2);
      end;
      writeln;
   end;
   for z:=1 to str do begin
      for i:=1 to str do begin
         for j:=1 to stl do begin
            if i=z then begin sum1:=1; break; end;
            sum1:=sum1+a[z,j];
            sum2:=sum2+a[i,j]
         end;
         if sum1=sum2 then f:=true;
         sum1:=0;
         sum2:=0;
         end;
   end;
   if f=true then write('Да.')
   else write('Нет.');
   readln;
end.

[TinMan]

user125, если ты не против, пара замечаний..
По первой задаче:
основной рабочий цикл лучше организовать снизу вверх и сделать выход из него (break). Но еще лучше использовать простой while, вот так:

z:= 10;
while a[z,2]<>10 do dec(i);

- тогда не нужна лишняя переменная i.
Да, и строки со столбцами у тя попутаны..

По второй задаче..
Не проще ли вместо этого:

            if i=z then begin sum1:=1; break; end;

просто пропустить значение i=z? Вот так:

   for z:=1 to str do begin
      for i:=1 to str do if i<>z then begin

Но на самом деле есть еще лучший способ - просто начинай второй цикл с z+1

   for z:=1 to str do begin
      for i:=z+1 to str do begin

Дальше, если у тебя УЖЕ БУЛЕВА переменная (то есть, имеющая значения false & true) - зачем проверять ее на равенство true? Ты же в результате сравнения все равно получаешь false/true! Этак можно и еще дальше пойти:

if (((f=true)=true)=true)=true then ...

А надо просто вот так

   if f then write('Да.') else write('Нет.');

На то они сделаны, булевы переменные!
А вообще, советую писать еще проще.. Без всяких там проверок писать просто вот так:

writeln(f);

Кому надо, тот поймет )).
Успехов тебе.

[user125]

TinMan, спасибо за оценку программ, буду стараться.

Сообщение от TinMan

Да, и строки со столбцами у тя попутаны..

Здесь не понял, вроде строки и столбцы верны.