№3
j=3
k=3
если j больше чем k то j = k - 2, т.е. j = 1
иначе k = k - 1, т.е. k = 2
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№1</u>
begin
var a:=ArrRandom(8,-20,20); a.Println;
a.Transform(t->t mod 5=0?100:t>0?-100:t); a.Println
end.
<u>Пример</u>
-7 -15 8 -19 -16 -10 -16 14
-7 100 -100 -19 -16 100 -16 -100
<u>//№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a.Transform(t->t.IsEven?2:1); a.Println
end.
<u>Пример</u>
n= 17
40 89 88 55 73 76 82 86 10 76 3 90 83 94 90 83 75
2 1 2 1 1 2 2 2 2 2 1 2 1 2 2 1 1
Var x1,x2,x3,x4,x5,max:real;
begin
writeln('x1 x2 x3 x4 x5');
readln(x1,x2,x3,x4,x5);
max:=x1;
if max<x2 then max:=x2;
if max<x3 then max:=x3;
if max<x4 then max:=x4;
if max<x5 then max:=x5;
writeln('Наибольшее число - ',max);
end.
Старый друг лучше двух новых
Да это правда
:))))
Не за что помочь