Решите с кумира. 1. дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число. 2. дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. вывести полученное число. 3. дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное число. 4. даны три целых числа. найти количество положительных чисел в исходном наборе. 5. даны три целых числа. найти количество положительных и количество отрицательных чисел в исходном наборе.

1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз

var a:array [1..5] of integer;

i,max,k,j: integer;

begin

Write ('Введите элементы массива: ');

for i:= 1 to 5 do  

read (a[i]);

max:=a[1];

for i:= 1 to 5 do  

if a[i]>max then max:=a[i];

Writeln ('Максимальный элемент: ',max);

Writeln ('Элементы с непарными индексами: ');

for i:= 1 to 5 do  

if i mod 2 <>0 then write (a[i], ' ');

for i:= 1 to 4 do

for j:= i+1 to 5 do  

if a[i]<a[j] then  

 begin

 k:=a[i];

 a[i]:=a[j];

 a[j]:=k;

 end;

 

 writeln();

 writeln ('Массив, упорядоченный в порядке убывания: ');

for i:= 1 to 5 do  

write(a[i], ' ');

end.

Объяснение:

ключ :1 Тмпгбнй еёмф оё рпнпзёщэ.

ключ:2 Унрдвок ёжнх срорижъю

ключ:3 Фосегпл жзоц рз тспсйзыя

ключ:4 Хптёдрм зипч си утрткиьа

ключ:5 Цружесн ийрш тй фусулйэб

ключ:6 Чсфзёто йксщ ук хфтфмкюв

ключ:7 Штхижуп клтъ фл цхухнляг

ключ:8 Щуцйзфр лмуы хм чцфцомад

ключ:9 Ъфчкихс мнфь цн шчхчпнбе

ключ:10 Ыхшлйцт нохэ чо щшцшровё

ключ:11 Ьцщмкчу опцю шп ъщчщспгж

ключ:12 Эчънлшф прчя щр ыъшътрдз

ключ:13 Юшыомщх рсша ъс ьыщыусеи

ключ:14 Ящьпнъц стщб ыт эьъьфтёй

ключ:15 Аъэроыч туъв ьу юэыэхужк

ключ:16 Быюспьш уфыг эф яюьюцфзл

ключ:17 Вьятрэщ фхьд юх аяэячхим

ключ:18 Гэаусюъ хцэе яц баюашцйн

ключ:19 Дюбфтяы цчюё ач вбябщчко

ключ:20 Еявхуаь чшяж бш гвавъшлп

ключ:21 Ёагцфбэ шщаз вщ дгбгыщмр

ключ:T22 Жбдчхвю щъби гъ едвдьънс

ключ:23 Звешцгя ъывй ды ёегеэыот

ключ:24 Игёщчда ыьгк еь жёдёюьпу

ключ:T25 Йджъшеб ьэдл ёэ зжежяэрф

ключ:26 Кезыщёв эюем жю изёзаюсх

ключ:27 Лёиьъжг юяён зя йижибятц

ключ:OT28 Мжйэызд яажо иа кйзйвауч

ключ:29 Нзкюьие абзп йб лкикгбфш

ключ:T30 Оиляэйё бвир кв млйлдвхщ

ключ:31 Пймаюкж вгйс лг нмкмегцъ

ключ:32 Ркнбялз гдкт мд онлнёдчы