10 значений для массива вводят с клавиатуры. Программа сравнивает предыдущий элемент с последующим. Если последующий больше по значению чем предыдущий то программа меняет из местами. Я пробовала но что то не так с программой сделать правильно и разобраться по возможности
var a:array[1..10] of integer;
i,t:integer;
begin
for i:=1 to 10 do
read(a[i]);
begin
for i:=1 to 9 do
if a[i] begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
write(a[i],' ');
end;
end.

knowwhatsorry104    1   17.12.2020 22:39    1