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

на паскале

Question

Информатика

Эсфирка

23 сентября, 20:15

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

на паскале

+4

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

на паскале