Дан массив В (20), заменить в нем все отрицательные числа на 1, а положительные на 2

Question

Информатика

Зара

1 июля, 12:35

Дан массив В (20), заменить в нем все отрицательные числа на 1, а положительные на 2

+4

Ответы (1)

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

Полактия · Answer 1

Var

b: array[1 ... 20] of integer;

i: integer;

begin

//тут пишите свой массив

b[1] : = - 5;

b[2] : = 0;

b[3] : = 10;

i : = 1;

for i : = 1 to 20 do

begin

if b[i] < 0 then

b[i] : = 1

else b[i] : = 2;

writeln (b[i]) ;

end;

end.