Информатика, опубликовано 2018-08-22 23:07:20 by Гость
Дан массив В(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] b[i] := 1
else b[i] := 2;
writeln(b[i]);
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на