Составить программу,которая:
Отрицательные элементы массива заменяет на 0

Вопрос школьника по предмету Информатика

Составить программу,которая:
Отрицательные элементы массива заменяет на 0

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

var

  a: array of integer;

  i, n: integer;

begin

  readln(n);

  setlength(a, n);

  for i := 0 to n — 1 do

    read(a[i]);

  for i := 0 to n — 1 do

  begin

    if a[i] < 0 then a[i] := 0;

    write(a[i], ‘ ‘);

  end;

end.