Дан массив В(20) , заменить в нем все отрицательные числа на 1, а положительные на 2.
Дан массив В(20) , заменить в нем все отрицательные числа на 1, а положительные на 2.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы