Question

Помогите пожалуйста.......
Информатика
Составить программу, которая формирует массив из 12 случайных целых чисел,
принадлежит промежутку [ -20, 20 ], заменяет отрицательные числа на -1 и выводит
значения элементов массива до и после замены. :-)

Answer 1

var
  a: array [1..12] of integer;
  i: integer;
begin
  writeln('Начальный вид массива:');
  for i := 1 to 12 do
   begin
    a[i] := -20 + random(41);
    writeln('A[', i:2, ']=', a[i]:3);
  end;
  writeln('Конечный вид массива:');
  for i := 1 to 12 do
   begin
    if a[i] < 0 then a[i] := -1;
    writeln('A[', i:2, ']=', a[i]:3);
  end;
  readln
end.