Создать массив из 20 случ. Чисел на промежутке от - 10 до 30, отсортировать массив по убыванию

На экран вывести исходный и отсортированный массив

Question

Информатика

Мишука

1 ноября, 00:01

Создать массив из 20 случ. Чисел на промежутке от - 10 до 30, отсортировать массив по убыванию

На экран вывести исходный и отсортированный массив

+2

Ответы (1)

Знаете ответ на вопрос?

Эдик · Answer 1

Var

a:array[1 ... 20] of integer;

i, j, x:integer;

begin

randomize;

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

for i:=1 to 20 do

begin

a[i]:=-10+random (40) ;

write (a[i]:4) ;

end;

writeln;

for i:=1 to 19 do

for j:=i+1 to 20 do

if a[i]
begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln ('Новый массив') ;

for i:=1 to 20 do

write (a[i]:4) ;

readln;

end.

Создать массив из 20 случ. Чисел на промежутке от - 10 до 30, отсортировать массив по убываниюНа экран вывести исходный и отсортированный массив

Создать массив из 20 случ. Чисел на промежутке от - 10 до 30, отсортировать массив по убыванию

На экран вывести исходный и отсортированный массив