<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 a,b,c,x,a1,b1,c1:integer;
begin
writeln('Введите стоимость тетрадей');
readln(a1);
writeln('Введите кол-во тетрадей');
readln(a);
writeln(''Введите стоимость ручек');
readln(b1);
writeln('Введите кол-во ручек');
readln(b);
writeln('Введите стоимость карандашей');
readln(c1);
writeln('Введите кол-во карандашей');
readln(c);
x:=(a*a1)+(b*b1)+(c*c1);
writeln(x' руб.',);
end.
У=124+8×<5
у=5-124>8×
у=-119>8×
Получится такая последовательность кодов:
<span>86 42 01 41 83 43 01 41 86 42</span>
<span>
</span>