Попробуем сделать сортировку букв латинского алфавита.
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.
<em><u>Тестовое решение:</u></em>
Исходный массив
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
Var
s,p:real;
i,j:integer;
a:array[1..3]of real;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
if a[1]+a[2]>a[3] then
begin
p:=(a[1]+a[2]+a[3])/2;
s:=sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));
for i:=1 to 3 do
write(a[i],' ');
writeln;
writeln('Площадь треугольника: ',s);
end
else writeln('Треугольник не существует');
<span>end.</span>
Var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
Машинное слово- это колич-во данных, кот-е процессор может обработать за одну операцию.
1 в четыре раза уменьшает неопределённость знания