tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Увеличить все положительные элементы
Увеличить все положительные элементы массива на 1 на паскале
gnastena021
3 22.09.2019 07:10
0
Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
пикачу87
11.05.2020 14:40
Как связаны систематизация и поиск информации в хранилище? приведи пример...
КореневаАня
30.06.2021 00:46
Здраствуйте как можно быстрее...
Крахмал16
30.06.2021 00:44
Приветствую как можно быстрее...
mr1assira
29.06.2021 22:18
решить 6-7-8 задания , молю...
gatilovasofiya
15.05.2019 17:24
Восстанови хронологическую последовательность событий. изобретение магнитофона первая запись с фонографа демонстрация первого кинофильма появление первых лазерных дисков изобретение...
SanzhikGanzhik
15.05.2019 17:24
1.число 201061 может существовать в системах счисления с основаниями: 1)2 и 10 2)4 и 3 3)7 и 8 4)2 и 4 2.переведите двоичное число 1001111 3.сколько цифр в двоичном представлении...
alinakodz11p05402
15.05.2019 17:23
Значение выражения 2310+10102 в двоичной системе счисления !...
Nastya1112172
15.05.2019 19:14
Если какие нибудь вопросы знаете ,отзовитесь ,...
axssis00
15.05.2019 19:13
Автоматическое устройство осуществило перекодировку информационного сообщения на языке первоначально записанного в 16-битном коде unicode в 8-битную кодировку кои-8 при этом информационное...
Кот15150019
15.05.2019 19:10
Определите значение переменной с после выполнения следующего фрагмента алгоритма записанного в виде блок схемы...
Популярные вопросы
Подставьте элементы в пропуски в тексте. На земном шаре известно более 3,6 тыс....
1
Визначте суть непу в радянській Росії: *...
2
Найдите значение выражения: [4...
3
Подчеркнуть сказуемое и подлежащие Мужество - это сила Волк овечкам не пастух...
3
с Английским, ответить на вопросы внизу под фото ...
1
Если угол острый, то он: ...
1
Деяка маса газу при тиску і температурі 300 К займає об’єм . Знайти об’єм газу...
2
• Выпишите имена и основное направление произведений певцов-импровизаторов и жырау...
2
1)под каким углом должны действовать две силы, чтобы уравновесить Равновероятную...
3
Актором школьного учесника алебра была) Ж.Алмаутов б) К.Сатпаевс) Ш.Кудабердиев...
2
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.