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

на паскале

Question

Информатика

Эсфирка

18 марта, 12:17

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

на паскале

+1

Ответы (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

на паскале