Тема «Программирование линейных алгоритмов»:

Внимательно изучите программу на Паскале и ответьте письменно на во Какую задачу решает данная программа? Что вводится в данной программе?
- Если слово «равнобедренным» заменить на «равносторонним», что нужно поменять в программе?

Попробуем сделать сортировку букв латинского алфавита.

const
  n = 20;
var
  a: array[1..n] of char;
  i, j: integer;
  t: char;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Chr(random(26)+Ord('A'));
    Write(a[i],' ')
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Исходный массив
G Z L H X A R E C F G X O T C L N U D L
Отсортированный по возрастанию массив
A C C D E F G G H L L L N O R T U X X Z

Const
n1=1000;
m1=1000;
var
n,m,i,j,min,max,i_max:integer;
a:array[1..n1,1..m1]of integer;
    begin
        writeln('введите кол строк и столбцов');
         readln(n,m);
             for i:=1 to n do
                 for j:=1 to m do
                      readln(a[i,j]);
for i:=1 to n do
    begin
        writeln;
              for j:=1 to m do
                    write(a[i,j]:4);
    end;
max:=-32767;
for i:=1 to n do
    begin
        min:=a[i,1];
           for j:=1 to m do   
                if a[i,j]<min then
                   min:=a[i,j];
         if min>max then
              begin
                   max:=min;
                   i_max:=i;
              end;
      end;
writeln;
writeln('i: ',i_max,'    znach: ',max);
end.