Условие:

Задан одномерный массив целых чисел. Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию.

Решение:

Данная задача является аналогичной предыдущей, следовательно, решим её, опять же, методом обмена, как наиболее простым.

Program Zadacha2;

uses crt;

const n=100;

procedure obmen (var x,y: integer);

var t:integer;

begin t:=x;

x:=y;

y:=t;

end;

var

A:array [1..n] of integer;

i,k,j:integer;

begin

clrscr;

writeln ('vvedite razmer massiva');

readln (k);

writeln ('vvedite elementy massiva');

for i:=1 to k do

readln (A[i]);

for i:=1 to k do

if A[i]<0 then A[i]:=sqr(A[i]);

for j:=1 to k-1 do

for i:=1 to k-j do

if A[i]>A[i+1] then

obmen (A[i], A[i+1]);

writeln ('resultat:');

for i:=1 to k do

write (A[i]);

readln;

end.