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

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

Question

Информатика

Модест

8 августа, 12:43

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

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

+4

Ответы (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