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

Question

Информатика

Тигрия

16 июня, 16:41

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

+1

Ответы (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.