Предмет: Информатика,
автор: wwwcoc2001p5zm6z
увеличить все положительные элементы массива на 1
на паскале
что после этого надо еще дописать чтобы Увеличить все положительные элементы массива на 1
Ответы
Автор ответа:
2
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.
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.
Похожие вопросы
Предмет: Литература,
автор: Itzwinxy
Предмет: Алгебра,
автор: ekstradiroll
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: Ярослаав228
Предмет: Математика,
автор: поропрмр
a:array [1..10] of integer;
i,N:integer;
begin
Write('N:');
Readln(N);
for i:=1 to N do
begin
write(i,' Введите элементы массива:');
readln(a[i]);
end;