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

PascalABC,Net. Помогите пожалуйста решить.

Ввести массив из N символов российского алфавита. Найти меньшее значение из знаков и вывести на экран.

Задать свой вопрос
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]lt;a[imin] then imin:=i;

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

 end;

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

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

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт