Pascal. Матрици.

[ProPaL]

Привет. Не знаю как написать текст программы, кто знает напишите пожайлусто?!
Дана матрица. В матрице найти две строки с равными количествами ненулевых элементов. Вычесть элементы строки с меньшим номером из соответствующих элементов всех строк.

[Карась]

Давайте писать вместе.

Начнём:
1. Давайте сначало обьявим массив, а также одну переменую для работы со строками. Этот массив и будет матрицей.
Судя по всему массив двумерный. Давайте ограничимся размерностью 5 на 5.
Пишите....

[ProPaL]

так?

program matr;
var
A:[1..5, 1..5] of real;
i:byte;
begin

[Карась]

Несовсем так.
1. Неправильно объявлен массив.
2. Зачем Реал?

Заполнение массива будем делать при помощи функции Random.
Для справки: Random

Ну и для наглядности выведем массив на экран.

Var mas : array [1..5, 1..5] of Integer;
      x, y : Byte;

Begin

Randomize;
For x := 1 To 5 Do
  For y := 1 To 5 Do mas[x,y] := Random(2);

For x := 1 To 5 Do
  Begin
    For y := 1 To 5 Do Write(mas[x,y], ' ');
    Writeln;
  End;

// Вот сюда нужно будет поместить код обработки...
// "В матрице найти две строки с равными количествами 
// ненулевых элементов"
// За строки у нас отвечает переменная x.
// А также ввывести результат.

Readln;

End.

[ProPaL]

а как сделать: *В матрице найти две строки с равными количествами
ненулевых элементов* ?

[Карась]

"Этоже элементарно Ватсон"...
А как бы это сделал ты?
Ну хотьб примерно....

[ProPaL]

элементарно когда знаешь) я ещё не сталкивался с таким просто, пожтому даже не знаю как...

[Карась]

Я тут подумал, что использовать три раза двойной цикл попахивает особым идиотизмом... Можно же это всё засунуть в один двойной цикл?!...
Я имею ввиду: заполнение массива, ввывод его на экран и подстчёт "... количества ненулевых элементов."
Ну а потом просто ищем две* строки

* - на самом деле мой код находит все такие равные строки, просто я толькочто прочитал условие до конца.

Var mas : array [1..5, 1..5] of Integer;
      x, y : Byte;

Begin

Randomize;
For x := 1 To 5 Do
 Begin
  For y := 1 To 5 Do
    Begin
    mas[x,y] := Random(2);
    Write(mas[x,y], ' ');
      if y = 1 Then
        Begin
          if mas[x,y] = 0 Then
             mas[x,y] := 0 Else
             mas[x,y] := 1;
             Continue;
        End;
      if mas[x,y] <> 0 Then mas[x,1] := mas[x,1] + 1;
    End;
  Writeln;
 End;

Writeln;

For x := 1 To 5 Do
  For y := (1 * x) + 1 To 5 Do
    if mas[x,1] = mas[y,1] Then
     Begin
      Writeln ('Stroka #',x,' ravna stroke #',y);
      Break;
     End;

Readln;

End.

[puporev]

Продолжим писать все вместе. Критика приветствуется.

Program stroki;
uses crt;
var n:byte;-размерность матрицы
    i,j:byte;-счетчики в циклах
    k:byte;-количество ненулевых элементов
    i1:byte;-номер первой строки с одинаковым количеством ненулевых элементов
    a:array[1..20,1..20] of integer;- матрица
    b:array[1..20]of integer; - массив количеств ненулевых элементов в строках
begin
clrscr;
write('n=');readln(n);
randomize;
writeln('Ishodnaia matrica');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(5);
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
     begin
       if a[i,j]<>0 then k:=k+1;//считаем количество ненулевых элементов в строке
     end;
   b[i]:=k;  //заносим его в массив
   end;
for i:=1 to n-1 do   //определяем, есть ли одинаковые и номер первой одинаковой строки
   begin
     for j:=i+1 to n do
       begin
         if b[i]=b[j] then break;
       end;
     if j<n then break;
   end;
   if i<n then i1:=i
   else
       begin
         writeln('odin net');
         readln;
         exit;
       end;
for j:=1 to n do   //запоминаем элементы нужной строки
b[j]:=a[i1,j];
writeln('Obrabotannaia matrica');
for i:=1 to n do
  begin
   for j:=1 to n do
      begin
        a[i,j]:=a[i,j]-b[j]; //вычитаем их из всех строк
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
end.

[ProPaL]

Пасибо парни!