Pascal. В одномерном массиве элементы меньше 1 умножить на 2, а остальные увеличить на 3

Question

Информатика

Ардалион

18 июля, 07:48

Pascal. В одномерном массиве элементы меньше 1 умножить на 2, а остальные увеличить на 3

+1

Ответы (1)

Знаете ответ?

Павлуся · Answer 1

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.