Обработка матриц (паскаль АBC)

[Greschnik]

1)Дана последовательность целых чисел 1,2,...,100. Заполнить ими матрицу следующим образом
1 2 ...... 10
11 12 ... 20
21 22 ... 30
...................
91 92 ... 100
и распечатать.


2)Дана целочисленная матрица С(5,5), в которой имеются два одинаковых элемента. Найти их, напечатать их индексы.

[Stilet]

Заполнить ими матрицу следующим образом

var a:[1..10,1..10] of integer;
 i,j,k:integer;
begin
 k:=1;
 for i:=1 to 10 do begin
  for j:=1 to 10 do begin
   a[i,j]:=k; inc(k);
  end;
 end;
Тут выводим матрицу
end.

в которой имеются два одинаковых элемента.

Только два? полюбому два?

[Greschnik]

а почему от 1..до 10?...когда дано 1,2,....100...объясните пожалуйста

это вы про вторую?

Может вообще так?

Const n=5;
Var
  A:array[1..n] of integer;
  i,t,in1,in2:integer;
  b:boolean;
Begin
  For i:=1 to n do
    Begin
      write('A[',i,']: ');
      readln(A[i]);
    End;
  i:=1;b:=true;
  While (i<=n)and(b) do
    Begin
      t:=i;
      While (t<=n)and(b) do
        Begin
          if (A[i]=A[t])and(i<>t) then
            Begin
              in1:=i;
              in2:=t;
              b:=false;
            End;
          inc(t);
        End;
      inc(i);
    End;
    writeln('Одинаковые числа: их индексы ',in1,'',' ',in2);
    readln;
End.

[Stilet]

а почему от 1..до 10

А потому что 10*10=100.
А подбором номера для ячейки занимается "к".

Может вообще так?

вы функции уже учили?

[Aleksandr H.]

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

2)Дана целочисленная матрица С(5,5), в которой имеются два одинаковых элемента. Найти их, напечатать их индексы.

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

Const n=5;
Var
  A:array[1..n] of integer;
 ........
End.

не вяжется одно к другому

[Greschnik]

я думаю и такая подойдёт для 1-ой зад

const n=10;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=(i-1)*n+j;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.

А для второй

const n=10;
var a:array[1..n,1..n] of integer;
   i,j,k:integer;
begin
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    inc(k);
    a[i,j]:=k;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.

[Aleksandr H.]

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

А для второй
const n=10;
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
inc(k);
a[i,j]:=k;
write(a[i,j]:4);
end;
writeln;
end;
end.

Ето вряд ли

[Greschnik]

почему ,объясните?

[Aleksandr H.]

Надо найти и напечатать одинаковые елементы и их индексы. Вы же переписываете значение a[i,j] каким-то счетчиком К и выводите етот елемент. Это, скорее, ремикс решения Stilet'a для первой задачи.

Для решения 2-й задачи можно применить такой вариант:

Program HelloWorld(output);
var c:array[1..5,1..5] of byte;
i,j,k,ii,jj:byte;
begin
randomize;
  for i:=1 to 5 do
     begin
          for j:=1 to 5 do
              begin
                  c[i,j]:=random(50);
                  write(c[i,j]:4);
              end;
          writeln;
     end;
  
 for i:=1 to 5 do 
     begin
         for j:=1 to 5 do
             begin
                 k := c[i,j];
                 for jj:=j+1 to 5 do
                     begin 
                         if (c[i,jj]=k) then 
                             writeln ('C[',i,',',j,']=',k,' equal C[',i,',',jj,']=',c[i,jj]);
                     end;
                 for ii:=i+1 to 5 do
                     begin
                         for jj:=1 to 5 do
                             if (c[ii,jj] = k) then
                                 begin
                                      writeln ('C[',i,',',j,']=',k,' equal C[',ii,',',jj,']=',c[ii,jj])
                                 end;
                     end;
              end;
       end;
end.