Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите пожалуйста решить простую задачку на паскале
Дан вбиваемый с клавиатуры одномерный массив целых чисел, программа должна вывести на экран после нажатия enter отсортированные числа по убыванию
За ранне спасибо кто поможет, ведь я в программировании не особо шарю((
1 | Автор: zestal | 2012-05-17, 18:01   |  Репутация: [ + 0 ]
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 ]
  • Страница 1 из 1
  • 1
Поиск: