2. найти наименьший элемент массива случайных чисел

Конечно, простейшая, но и на ней можно проследить состояние изучения программирования в наших школах. { 1. borland (turbo) pascal 7.0, 1994г., статический массив } uses crt; const   nn=1000; var   i,n,mn: integer;   a: array[1..nn] of integer; begin   randomize;   clrscr;   write('n='); read(n);   mn: =1000;   for i: =1 to n do begin       a[i]: =random(199)-99;       write(a[i],' ');       if a[i]< mn then mn: =a[i]       end;   writeln;   writeln('наим. элемент ',mn);   readkey end. выполнение во вложении 1. // 2. free pascal 3.0.0, 2015г., динамический массив uses crt; var   i,n,mn: integer;   a: array of integer; begin   randomize;   clrscr;   write('n='); read(n);   setlength(a,n);   mn: =1000;   for i: =0 to n-1 do begin       a[i]: =random(199)-99;       write(a[i],' ');       if a[i]< mn then mn: =a[i]       end;   writeln;   writeln('наим. элемент ',mn);   readkey end. выполнение во вложении 2 // 3. pascalabc.net 3.2, 2016г., современное решение begin   var a: =arrrandom(readinteger('n=',99);   a.println;   writeln('наим. элемент ',a.min) end. выполнение во вложении 3. сделать выводы каждый может примечание: все решения сделаны в среде pascalabc.net 3.2, который для уровня школьных можно считать совместимым на уровне исходного текста с версиями паскалей.

Var i,min: integer; a: array[1..10] of integer; begin for i: =1 to 10 do begin a[i]: =random(20); write(a[i],' '); end; writeln; min: =a[1]; for i: =2 to 10 do if a[i]< min then min: =a[i]; writeln(min); end.

неправда : Увага , появилась неалкольна водка

Правда : Водка дорводить людей до поганого

Объяснение: