PascalABC,Net. Помогите пожалуйста решить.Ввести массив из N символов русского алфавита....

Question

PascalABC,Net. Помогите пожалуйста решить.Ввести массив из N символов русского алфавита. Найти наименьшее значение из символов и вывести на экран.

Answer 1

program naznavie;

const

 n=20;

var

 a: array[1..n] of byte;

 i,imin,imax: byte;

begin

 writeln('Исходный массив:');

 for i:=1 to n do

 begin

   a[i]:=random(21);

   write(a[i],' ');

 end;

 writeln;

 imin:=1; imax:=1;

 for i:=2 to n do

 begin

   if a[i]

   if a[i]>a[imax] then imax:=i;

 end;

 writeln('Максимум = ',a[imax],', позиция: ',imax);

 writeln('Минимум = ',a[imin],', позиция: ',imin);

end.