Free Pascal - Замена отрицательных элементов массива на "нули"

[Gold Smile]

Дан массив целых чисел, состоящий из 25 элементов. В массиве имеется несколько отрицательных элементов. Требуется заменить их на "нули". Старый и новый массив распечатать.
Ребята, помогите, пожалуйста. Заранее спасибо!

[ViktorR]

1. Готовишь массив с отрицательными элементами, например,

randomize;
...
mas[i] := 30 - random(35);
...

2. В цикле, выводишь массив на экран, например,

writeln('i=', i:5, 'Mas[',i:2,']=',mas[i]:5);

3. Просматриваешь массив в цикле и если встречается отрицательное значение, то присваиваешь ноль, например,

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

4. Выводишь новый массив.


Как-то так, ...

[Gold Smile]

Сообщение от ViktorR

1. Готовишь массив с отрицательными элементами, например,

randomize;
...
mas[i] := 30 - random(35);
...

2. В цикле, выводишь массив на экран, например,

writeln('i=', i:5, 'Mas[',i:2,']=',mas[i]:5);

3. Просматриваешь массив в цикле и если встречается отрицательное значение, то присваиваешь ноль, например,

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

4. Выводишь новый массив.


Как-то так, ...

спасибо большое!