1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9 ... + 10^9].

2) Отсортировать массив A в порядке неубывания элементов.

Question

Информатика

Нил

2 июля, 17:20

1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9 ... + 10^9].

2) Отсортировать массив A в порядке неубывания элементов.

+2

Ответы (1)

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

Мартьян · Answer 1

Var a:array[1 ... 10] of integer;

i:integer;

Begin

For i:=1 to 10 do

a[i]:=Random (10) + 1;

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

For i:=1 to 10 do

begin

write (a[i], ' ') ;

end;

writeln;

writeln ('Есть ли в массиве элемент, равный 5?') ;

if a[i]=5 then write ('Да') else write ('Нет')

End.

1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9 ... + 10^9].2) Отсортировать массив A в порядке неубывания элементов.

1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9 ... + 10^9].

2) Отсортировать массив A в порядке неубывания элементов.