Question

попросить у пользователя 10 чисел от 1 до 100 собрать введенные числа в массив отсортировать числа из массива по возрастанию и вывести строкой

Answer 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;

не впевнений, що правильно