<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.
<u>Пример</u>
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.