Элементы массива расположить в порядке возрастания их модулей.

0 голосов
62 просмотров

Элементы массива расположить в порядке возрастания их модулей.


Информатика (46 баллов) | 62 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer;
 i,j:integer;
begin
randomize;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-10,10);
   write(ar[i]:4);
  end;
for i:=1 to n-1 do
 for j:=i+1 to n do
 if abs(ar[i])>abs(ar[j]) then swap(ar[i],ar[j]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.

(38.6k баллов)
0

разберусь

0

Уже отформатировал. Обновите страницу.