Массивы в языках Pascal и Basic

Автор работы: Пользователь скрыл имя, 18 Декабря 2011 в 22:00, реферат

Описание

С понятием "массив" приходится сталкиваться при решении научно-технических и экономических задач обработки совокупностей большого количества значений.

Работа состоит из  1 файл

Реферат.docx

— 23.55 Кб (Скачать документ)

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.

 
 
 

Реклама на сайте

 

Информация о работе Массивы в языках Pascal и Basic