Язык программирования: Паскаль. Написать программку.Заполнить массив из 10 элементов

Язык программирования: Паскаль. Написать программку.

Заполнить массив из 10 частей случайными числами в промежутке [0..100] и отсортировать первую половину по возрастанию, а вторую по убыванию.

Задать свой вопрос
1 ответ

var a:array[1..10]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do a[i]:=random(101);
for i:=1 to 10 do write(a[i],' ');
writeln;


for i:=1 to 5 do
for j:=1 to 4 do
if a[j]gt;a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;

 

for i:=1 to 5 do
for j:=7 to 10 do
if a[j]gt;a[j-1] then begin
k:=a[j];
a[j]:=a[j-1];
a[j-1]:=k;
end;

 

for i:=1 to 10 do write(a[i],' ');


end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт