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 Ркнбялз гдкт мд онлнёдчы
алг
нач цел 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
кон
Самые наиболее простые варианты выбрал думаю в самый раз