Question

Даны два целочисленных массива состоящие из 6 элементов.Первый массив задан с клавиатуры,второй - с помощью датчика случайных чисел.Сформировать третий массив из значений первого и второго массивов и отсортировать его по не возрастанию.(Паскаль)

Answer 1

Ответ:

var a,b:array [1..6] of integer;

var c:array [1..12] of integer;

var i,k,j:integer;

begin

write('Введите 6 значений массива: ');

for i:=1 to 6 do begin

readln(a[i]);

b[i]:=random(1000);

c[i]:=a[i];

c[13-i]:=b[i];

end;

for i := 1 to 11 do

for j := 1 to 12-i do

if c[j] < c[j+1] then begin

k:=c[j];

c[j]:=c[j+1];

c[j+1]:=k;

end;

writeln('Полученный массив');

for i:=1 to 12 do writeln(c[i],' ')

end.

Объяснение:

Answer 2

===== PascalABC.NET =====

begin

 var c := ArrRandom(6, -99, 99) + ReadArrInteger('Вводи:', 6);

 c := c.Println.SortedDescending.ToArray;

 c.Print

end.