Сортировать вторую половину по убыванию массив паскаль

Question

Информатика

Розина

29 марта, 15:58

Сортировать вторую половину по убыванию массив паскаль

+3

Ответы (1)

Знаете ответ?

Гапа · Answer 1

Const n=10;

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

i, j, z:integer;

begin

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

for i:=1 to n do begin

a[i]:=random (100) ;

write (a[i]:4) ;

end;

writeln;

for i:=6 to 9 do

for j:=i+1 to 10 do

if a[i]
begin

z:=a[i];

a[i]:=a[j];

a[j]:=z;

end;

Write ('Результат: ') ;

for i:=1 to 10 do

Write (a[i]:4) ;

end.