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]<a[imin] then imin:=i;

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

 end;

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

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

end.

Answer 2

Конечно, я помогу вам решить эту задачу на языке программирования PascalABC.NET. Для нахождения наименьшего значения из символов в массиве русского алфавита, можно использовать следующий код:

pascalCopy code
program MinSymbol;

const
  N = 10; // Размер массива

var
  alphabet: array[1..N] of Char;
  i: Integer;
  minSymbol: Char;

begin
  // Вводим массив из N символов русского алфавита
  Writeln('Введите ', N, ' символов русского алфавита:');
  for i := 1 to N do
  begin
    Readln(alphabet[i]);
    // Очищаем буфер после каждого ввода символа
    Readln;
  end;

  // Первый символ массива считаем наименьшим
  minSymbol := alphabet[1];

  // Ищем наименьший символ в массиве
  for i := 2 to N do
  begin
    if alphabet[i] < minSymbol then
      minSymbol := alphabet[i];
  end;

  // Выводим наименьший символ на экран
  Writeln('Наименьший символ: ', minSymbol);

end.

Обратите внимание, что в данном коде предполагается, что пользователь будет вводить ровно N символов русского алфавита, и программа найдет наименьший из них. Если вы хотите проверить программу, просто запустите код в среде PascalABC.NET и введите 10 символов русского алфавита, после чего программа выведет наименьший из них.