Помогите пожалуйста
Преобразовать массив, умножив все отрицательные числа на минимальное число этого массива
Pascal abc

Ответ учителя по предмету Информатика

Const n=10;

Var a: array [1..n] of integer;

    i,min: integer;

Begin

For i:=1 to n do

a[i]:=Random(21)-10;

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

for i:=1 to n do

write (a[i],’ ‘);

writeln;

min:=a[1];

for i:=2 to n do

if a[i]<min then

min:=a[i];

writeln (‘Минимальный элемент = ‘,min);

for i:=1 to n do

if a[i]<0 then

a[i]:=a[i]*min;

writeln (‘Преобразованный массив:’);

for i:=1 to n do

write (a[i], ‘ ‘);

end.