(Pascal) Данн массив из 8 целых чисел. Умножить все отрицатильные числа ** 6. Вывести...

Question

(Pascal) Данн массив из 8 целых чисел. Умножить все отрицатильные числа на 6. Вывести элементы массива .

Answer 1

For I:= 1 to 8 do
begin
If A[i]<0 then<br>A[i]:=A[i]*6;
End;
И потом выводишь массив на экран.