Var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=1 to 10 do
if ar[i] mod 2=0 then write(i:4);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847
Меню -> Вставка -> Рисунок
CLS
N = 18
DATA
42,33,34,35,36,37,38,39,40,41,44,55,65,75,88,90,100,110
DIM
M1(18)
DIM
M2(18)
K = 0
F = 1
READ
M1(1)
PRINT
M1(1);
FOR i =
2 TO N
READ
M1(i)
PRINT
M1(i);
IF M1(1)
< M1(i) AND F = 1 THEN
K = K +
1
M2(K) =
M1(1)
K = K +
1
M2(K) =
M1(i)
F = 0
ELSE
K = K +
1
M2(K) =
M1(i)
END IF
NEXT i
IF F = 1
THEN
M2(N) =
M1(1)
END IF
PRINT
FOR i =
1 TO N
PRINT
M2(i);
<span>NEXT i
</span>