1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); min:=mas[1]; for i:=1 to n do if mas[i] < min then begin min:=mas[i]; k:=i; end; for i:=1 to n do write(mas[i]:4); writeln(); writeln('minimalnoe=',min); writeln('index=',k); end. 2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); for i:=1 to n do write(mas[i]:4); for i:=1 to n do if mas[i] mod 3 = 0 then mas[i]:=0; writeln(); for i:=1 to n do write(mas[i]:4); end.
Решение задачи в прикрепленном текстовом файле. Описание алгоритма: Полученные строки хранятся в массиве s. Элементы массива сортируются так называемой "пузырьковой" сортировкой. Для сравнения двух строк используется функция less, возвращающая истину если первая из двух переданных в функцию строк лексикографически меньше. А дальше дело за малым: просто выводим элементы отсортированного массива без первых трех символов (номера строк). Единственная проблема, которая может возникнуть: на некоторых компьютерах программа не работает с русским языком. Но это уже технические проблемы. Само же решение верно. Удачи!
