Реферат: Массивы в языках Pascal и Basic

for i:=

1 to 10 do

r,q:real;

x:array [1..20] of real;

begin

writeln('Ведите массив, cостоящий из 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.

Список литературы

Львовский М.Б. Методическое пособие «BOOK» по информатике для 9-11 классов.

К-во Просмотров: 275
Бесплатно скачать Реферат: Массивы в языках Pascal и Basic