создать массив целых чисел при помощи случайных чисел в диапазоне от 0 до 25 размерностью 10 ,вывести его на экран, отсортировать его по возрастанию и снова вывести
Ответы
Ответ дал:
1
var a:array[1..10] of integer;
i,temp,j:integer;
begin
for i:=1 to 10 do begin
a[i]:=random (26);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do
if a[i]<a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;
for i:=1 to 10 do
write(a[i]:3);
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад