Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Одномерный массив, Pascal (http://www.tehnari.ru/f41/t74214/)

Anny_K 30.05.2012 17:08

Одномерный массив, Pascal
 
Здравствуйте!
Дан одномерный массив. Вывести его в порядке убывания.
Отсутствовала на уроке, когда решали эту задачу. Не могли бы вы помочь разобрать несколько команд?

Program pr1;
Uses CRT;
Const N=7;
Var A:array[1..N] of integer;
i,j,k:integer;

Begin
ClrScr;
For i:=1 to N do A[i]:=random(20);
For i:=1 to N do write(A[i]:3);
{начиная отсюда}
For i:=1 to N-1 do
For j:=1 to N-i do
If A[j]<A[j+1] then begin
k:=A[j];
A[j]:=A[j+1];
A[j+1]:=k;
end;
{заканчивая здесь}
writeln;
writeln('otsortirovannii massiv');
For i:=1 to N do write(A[i]:4);

Readln;
end.

Vladimir_S 30.05.2012 19:53

Цитата:

Сообщение от Anny_K (Сообщение 740510)
Не могли бы вы помочь разобрать несколько команд?

Конечно, пожалуйста. Вам - сюда: http://www.tehnari.ru/f41/t72821/


Часовой пояс GMT +4, время: 12:58.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.