попросить у пользователя 10 чисел от 1 до 100 собрать введенные числа в массив отсортировать числа из массива по возрастанию и вывести строкой
helpmepls1334:
помогите пж
Ответы
Ответ дал:
1
Ответ:
program pusir;
uses crt;
var
masyv:array[1..10] of integer;
i,j :integer;
m:integer;
begin
for i:=1 to 10 do begin masyv[i]:=random(10);
write( masyv[i]:4); end; writeln;
for i:=1 to 9 do
for j:=1 to 10-i do
if masyv[j]>masyv[j+1] then
begin
m:=masyv[j];
masyv[j]:=masyv[j+1];
masyv[j+1]:=m; end;
for i:=1 to 10 do write( masyv[i]:4);
writeln;
не впевнений, що правильно
1 28 32 44 56 61 63 78 81 99
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад