Регистрация
Войти
Стать экспертом Правила
Информатика | 2 курс

В таблице из 10 элементов расположить их в порядке возрастания.

Сделать на языке паскаль

ОТВЕТЫ

uses crt;

const n=10;

var a:array[1..n] of integer;

i,j:byte;

x:integer;

begin

clrscr;

writeln(\'Введите элементы массива:\');

for i:=1 to n do

begin

write(\'a[\',i,\']=\');

readln(a[i]);

end;

clrscr;

writeln(\'Исходный массив:\');

for i:=1 to n do

write(a[i],\' \');

writeln;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln(\'Массив по возрастанию:\');

for i:=1 to n do

write(a[i],\' \');

readln

end.

СПАСИБО 1
Для написания вопросов необходимо войти в систему
Контакты
Обратная связь
support@sproshu.net
Спрошу
О проекте
Новым пользователям
Новым экспертам