Дан целочисленный массив, заданный датчиком случайных чисел в интервале

от -100 до 500. Требуется умножить отрицательные значения элементов этого

массива на 10.(Язык Pascal)

const M = 10;

var A: array [1..M] of integer;

var i:integer;

begin

randomize();

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

For i:= 1 to M do

 begin

 A[i]:=random(601)-100;

 write(A[i],' ');

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

 end;

writeln;

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

For i:= 1 to M do write(A[i],' ');

end.