Дан вбиваемый с клавиатуры одномерный массив целых чисел, программа должна вывести на экран после нажатия enter отсортированные числа по убыванию
За ранне спасибо кто поможет, ведь я в программировании не особо шарю((
|
|
|
|
var
a:array[1..100]of integer;
i,j,q,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=1 to n-1 do
if a[i]<a[i+1] then begin q:=a[i+1];a[i]:=a[i+1];a[i+1]:=q;end;
readln;
for i:=1 to n do
write(a[i],' ');
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
№ 2 | Автор: Berestovskiy |
2012-05-18, 09:16 | Изменено: Berestovskiy - Пт, 2012-05-18, 09:17
|
Репутация: [ + 211 ]
|
|
|
|
