Помогите решить: В массиве, состоящем из n элементов, заменить элементы массива, значения...

Question

Помогите решить:
В массиве, состоящем из n элементов, заменить элементы массива, значения которых отрицательные числа, числом 10

Answer 1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n: integer;

begin
  write('Введите n ');readln(n);
  SetLength(a, n);
  writeln('Исходный массив :');
  for i := 0 to n - 1 do
  begin
    a[i] := random(-20, 20);write(a[i]:4);
  end;
  writeln;
  writeln('Массив после обработки:');
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then a[i] := 10;
    write(a[i]:4);
  end;
end.

Тестовое решение:
Введите n 10
Исходный массив :
 -19 -14 -14   1   2  16  16  -6   0  19
Массив после обработки:
  10  10  10   1   2  16  16  10   0  19