Free pascal. Массивы

[Никнейм]

С помощью датчика случайных чисел заполнить целочисленный массив a[1..n,1..n]. Найти второй минимальный элемент массива (т.е. элемент, который больше самого маленького элемента массива, он меньше всех остальных).

[ByAlex]

Сообщение от Никнейм

С помощью датчика случайных чисел заполнить целочисленный массив a[1..n,1..n]. Найти второй минимальный элемент массива (т.е. элемент, который больше самого маленького элемента массива, он меньше всех остальных).

В чем же сложность?

[SergGhost]

uses crt;
const n=5;
var  i,j,a,a1:integer;
     ar:array[1..n,1..n] of integer;
procedure zapolnenie(i,j:integer);
begin
For i:=1 to n do
begin
  for j:=1 to n do
    begin
      randomize;
      ar[i,j]:=random(100);
      write(ar[i,j]);
      write(' ');
    end;
  writeln(' ');
 end;
end;
begin
clrscr;
zapolnenie(1,1);
a:=ar[1,1];
//Нахождение минимального элемента
for i:=1 to n do
  for j:=1 to n do
  begin
    if ar[i,j]<a then
      a:=ar[i,j]
  end;
  writeln();
  writeln(a);
//Нахождение второго по минимуму)
a1:=100;
 for i:=1 to n do
  for j:=1 to n do
  begin
    if ((ar[i,j]<a1) and (a1>a)) then
      a1:=ar[i,j]
  end;
writeln();
writeln(a1);
end.

[SergGhost]

как то так, но этот участок кода надо подредактировать
//Нахождение второго по минимуму)

a1:=100;
 for i:=1 to n do
  for j:=1 to n do
  begin
    if ((ar[i,j]<a1) and (a1>a)) then
      a1:=ar[i,j]
  end;
writeln();
writeln(a1);
end.

считает не совсем верно.
щас просто некогда.

[ByAlex]

Вот рабочая -

uses crt;
const
  n=4;
var
  Arr:array[1..n,1..n] of Integer;
  i,j,min,posi,posj,raz,razmin:Integer;
begin
  writeln('Massive is -');
  min:=arr[1,1];
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Arr[i,j]:=Random(30)-10;
      write(Arr[i,j],' ');
      if Arr[i,j]<min then
        min:=arr[i,j];
    end;
    Writeln;
  end;
  razmin:=2147483647;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if Arr[i,j]<>min then
      begin
        if razmin>(Arr[i,j]-min) then
        begin
          razmin:=Arr[i,j]-min;
          posi:=i;
          posj:=j;
        end;
      end;
    end;
  writeln;
  write('Result = ',arr[posi,posj]);
  Readln;
end.

[Step_UA]

как вариант:

const
  n=5;
var
  A:array[1..n,1..n] of Integer;
  i,j,min,min2:Integer;
begin
  randomize;
  min:=maxint;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      A[i,j]:=Random(101)-50;
      write(A[i,j]:6);
      if A[i,j]<min
       then begin min2:=min; min:=A[i,j] end
       else
        if A[i,j]<min2 then min2:=A[i,j]
     end;
    Writeln
   end;
  write('Второй минимальный элемент = ',min2);
  Readln
end.

[TinMan]

Step_UA, если в массиве два или больше элемента, равных минимуму, то твоя прога даст минимальное значение. В условии сказано, что второй мимнимальный должен быть больше него..

[Step_UA]

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

Step_UA, если в массиве два или больше элемента, равных минимуму, то твоя прога даст минимальное значение. В условии сказано, что второй мимнимальный должен быть больше него..

согласен ... чтоб этого не было необходимо дополнить условие отбора min2 с

if A[i,j]<min2 then min2:=A[i,j]

на

if (A[i,j]>min) and (A[i,j]<min2) then min2:=A[i,j]

[TinMan]

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

согласен ... чтоб этого не было необходимо

Боюсь, это не так уж многим лучше.. Если все элементы в массиве одинаковые, твой код скорее всего выдаст 0, что совсем неверно.
Я пытался сказать, что условие поставлено не совсем корректно на самом деле. Тут нужно либо додумывать, что делать в специальных ситуациях (например, выводить словами, что мол такого нет), либо.. Короче, Step_UA, советую тебе сослаться на свою собственную подпись и спать спокойно )).