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

gnastena021 gnastena021    3   22.09.2019 07:10    0

Ответы
adrienagreste1 adrienagreste1  27.08.2020 01:42
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика