Автор работы: Пользователь скрыл имя, 18 Декабря 2011 в 22:00, реферат
С понятием "массив" приходится сталкиваться при решении научно-технических и экономических задач обработки совокупностей большого количества значений.
begin
writeln('Ведите массив, состоящий из 20 чисел:');
for i:=1 to 20 do read(x[i]);
for i:=1 to 19 do
for j:=i+1 to 20 do
if x[i]>=x[j] then
begin
r:=x[i]; x[i]:=x[j]; x[j]:=r
end;
writeln('Сортировка массива по возрастанию произведена:');
for i:=1 to 20 do writeln(x[i]);
writeln('Для выхода введите любое число.');
readln(q);
end.
Реклама на сайте