дана последовательность целых чисел а1 а2....ан . найти два минимальных элемента...

Question

дана последовательность целых чисел а1 а2....ан . найти два минимальных элемента последовательности количество чисел вводится с клавиатуры

Answer 1

uses crt;
var a:array[1..100] of real;
i,n,ind:integer; min,min2:real;
begin
  clrscr;
  write('n='); read(n);
  writeln('massiv:');
  for i:=1 to n do
    read(a[i]);
  min:=a[1];
  min2:=a[1];
  for i:=1 to n do
    begin
      if a[i]      begin
        min:=a[i];
        ind:=i;
      end;
    end;
  for i:=1 to n do
    begin
      if (i<>ind) then if (a[i]    end;
  write(min,' ',min2);
end.