Pascal. В одномерном массиве элементы меньше 1 умножить на 2,а остальные увеличить на 3
Pascal. В одномерном массиве элементы меньше 1 умножить на 2,а остальные увеличить на 3
Ответ(ы) на вопрос:
Гость
var
x:array [1..10] of integer;
i:integer;
begin
writeln('Введите массив');
for i:=1 to 10 do begin
read(x[i]);
if x[i]<1 then
x[i]:=x[i]*2
else
x[i]:=x[i]+3;
end;
for i:=1 to 10 do
write(x[i],' ');
end.
Не нашли ответ?
Похожие вопросы