Составить программу, которая:

Отрицательные элементы массива заменяет на 0

Question

Информатика

Римуся

25 декабря, 20:14

Составить программу, которая:

Отрицательные элементы массива заменяет на 0

+3

Ответы (1)

Знаете ответ на вопрос?

Пахомий · Answer 1

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.

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

Составить программу, которая:

Отрицательные элементы массива заменяет на 0