Задача 5. Дан одномерный массив. Заменить все отрицательные элементы нулями

1. Постановка задачи.

Дан одномерный массив. Заменить все отрицательные элементы нулями.

2. Математическая модель.

Если a[i] < 0 то a[i]=0

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
A	Элементы массива	Integer
N	Кол-во элементов массива	Integer
I	Счетчик	Integer

5. Код программы.

program z5;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var a:array of integer;

i, n:integer;

begin

writeln ('Введите кол-во эл-тов массива');

readln (n);

writeln ('Введите эл-ты массива');

setlength (a, n);

for i:= 1 to n do

read (a[i]);

for i:= 1 to n do

if a[i] < 0 then

a[i]:=0;

for i:= 1 to n do

write (a[i], ' ');

readln ();

end.

6. Результаты выполнения программы.