Имеется массив на N чисел, заменить все отрицательные числа на 0 и вывести этот массив.

Question

Информатика

Борюля

3 мая, 20:04

Имеется массив на N чисел, заменить все отрицательные числа на 0 и вывести этот массив.

+2

Ответы (1)

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

Зорина · Answer 1

Const n=100;

var m:array[1 ... n] of integer;

i:integer;

begin

readln (n) ;

for i:=1 to n do

begin

read (m[i]) ;

if m[i]<0 then m[i]=0;

end;

for i:=1 to n do

write (m[i], ' ') ;

end.

Константой задано число n.

Во второй строке задано n чисел для массива.