Ребят , задачка по информатике : написать программу ( на языке паскаль ) , где дан массив целых чисел а1, а2, а3, ..., аn, и нужно упорядочить этот массив ( числа должны идти по возрастанию)
Program n6; var A:array [1..5] of integer; b,i,h:integer; begin for i:=1 to 5 do begin write('Введите ',i,' элемент массива'); readln(A[i]); end; for h:=1 to 25 do for i:=1 to 4 do if (A[i]>A[i+1]) then begin b:=A[i+1]; A[i+1]:=A[i]; A[i]:=b; end; write('Упорядочный массив - '); for i:=1 to 5 do write(A[i],' '); end.
Answers & Comments
Verified answer
Program n6;var A:array [1..5] of integer;
b,i,h:integer;
begin
for i:=1 to 5 do
begin
write('Введите ',i,' элемент массива');
readln(A[i]);
end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
begin
b:=A[i+1];
A[i+1]:=A[i];
A[i]:=b;
end;
write('Упорядочный массив - ');
for i:=1 to 5 do
write(A[i],' ');
end.