Массив состоящий из 15 элементов заполнен случайным образом в массиве все отрицательные числа заменить на 0. На паскале.

program massiv;

const

n = 15;

var

a: array [1…n] of integer;

i: integer;

begin

randomize;

writeln(‘Исходный массив:’);

for i := 1 to n do

begin

a[i] := random(101) - 50;

write(a[i]:4);
end;

writeln;

for i := 1 to n do

if a[i] < 0 then

a[i] := 0;
writeln(‘Массив после замены отрицательных чисел на 0:’);

for i := 1 to n do

write(a[i]:4);
end.