Увеличить все положительные элементы массива на 1

на паскале

Question

Информатика

Капик

12 апреля, 01:19

Увеличить все положительные элементы массива на 1

на паскале

+2

Ответы (1)

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

Екатерина · Answer 1

Var a:array[0 ... 1000] of integer;

k, i, n:integer;

begin

readln (n) ;

for i:=1 to n do

read (a[i]) ;

dor k:=1 to n do begin

if a[k]>0 then

a[k]:=a[k]+1;

end;

end.

Увеличить все положительные элементы массива на 1на паскале

Увеличить все положительные элементы массива на 1

на паскале