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

Question

Информатика

Агита

12 мая, 05:08

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

+5

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