Информатика | 2 курс
Kcenia16
3 год назад
В таблице из 10 элементов расположить их в порядке возрастания.
Сделать на языке паскаль
ОТВЕТЫ
111111
НЕ ЭКСПЕРТ
Ответил 2021-10-20 09:47:56
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
Для написания вопросов необходимо войти в систему
Контакты
Спрошу
О проекте
Новым пользователям
Новым экспертам