20 элементов в массиве, в диапазоне (0-60) заполнить без оператора random и найти два минимальных значения! программу записать на

Const   n = 20; var   a: array[1..n] of integer;   i, t, min1, min2: integer; begin   writeln('введите ', n, ' элементов массива');   for i : = 1 to n do read(a[i]);   min1 : = 32767; min2 : = min1;   for i : = 1 to n do   begin       if min2 > a[i] then min2 : = a[i];       if min1 > min2 then begin t : = min1; min1 : = min2; min2 : = t end;   end;   writeln('первый минимум равен ', min1, ', второй минимум равен ', min2) end. тестовое решение: введите 20 элементов массива -5 4 12 8 -7 0 5 9 11 -4 -9 13 0 4 -8 12 -11 7 4 1 первый минимум равен -11, второй минимум равен -9

Var   f: text;   i,n: integer;   s,s1: string; begin; assign(f,'text.txt');   reset(f);   while not(eof(f)) do     read(f,s);   close(f); n: =0; while n< > length(s) do   begin;   inc(n);   for i: =0 to 9 do     begin;     str(i,s1);       if s[n]=s1 then       begin;         delete(s,n,1);         s1: =s1+s1;         insert(s1,s,n);         inc(n);           end;     end;   end; writeln(s); end.

Const   n=3; var   ma: array[1..n,1..n] of integer;   i,j,p: integer; begin;   p: =0;   randomize;   writeln('matrix: ');   for i: =1 to n do     begin;     writeln;       for j: =1 to n do       begin;         ma[i,j]: =random(2);         write(ma[i,j]: 4);       end;     end;     writeln;   for i: =1 to n do     if ma[i,1]< > ma[i,n] then p: =1;   if p=0 then write('да') else write('нет');   end.