Язык программирования - Паскаль. Двумерный массив

[Chelios_rus]

Язык программирования - Паскаль. Двумерный массив

Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.

 

[Vladimir_S]

Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.

Сразу скажу: на меня не рассчитывайте. Ибо оказание "помощи" в решении подобных задач ясельно-дебильного уровня считаю делом абсолютно безнравственным. Вот так вот.

 

[Chelios_rus]

ну спасибо хоть на этом

 

[Vladimir_S]

ну спасибо хоть на этом

Да не за что, в общем-то. Единственное - если Вы выложите результаты своих попыток самостоятельного решения этой... (тьфу, прости, Господи) "задачи", то разговор будет другим. От оказания реальной помощи я не отказываюсь.

 

[Chelios_rus]

мне просто нужно было чем скорее тем лучше

 

[Chelios_rus]

это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin

 

[Vladimir_S]

это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin

М-да... достижение... Ну ладно, что уж с Вами поделаешь, раз обещал:

program ABC;
var
 A:array[1..6,1..8] of integer;
 i,j,Imin,Jmin,Min:integer;
begin
 Randomize;
 Min:=1000;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    begin
     A[i,j]:=Random(20);
     write(A[i,j]:4);
     if A[i,j]<Min then
      begin
       Min:=A[i,j];
       Imin:=i;
       Jmin:=j;
      end;
    end;
   writeln;
  end;
 writeln;
 writeln('Imin= ',Imin,'   Jmin= ',Jmin, '   A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
 readln
End.

 

[Chelios_rus]

спасибо, а можно что бы в ручную работала?

 

[Vladimir_S]

спасибо, а можно что бы в ручную работала?

Можно:

program ABC;
var
 A:array[1..6,1..8] of integer;
 i,j,Imin,Jmin,Min:integer;
begin
 Min:=1000;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    begin
     write('A[',i,',',j,']= ');
     readln(A[i,j]);
     if A[i,j]<Min then
      begin
       Min:=A[i,j];
       Imin:=i;
       Jmin:=j;
      end;
    end;
  end;
 writeln;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    write(A[i,j]:4);
   writeln;
  end;
 writeln;
 writeln('Imin= ',Imin,'   Jmin= ',Jmin, '   A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
 readln
End.

 

[Chelios_rus]

спасибо большое, сильно выручаете