//PascalABC.NET 3.1 сборка 1200
begin
var a := ReadArrInteger(ReadInteger());
Println(a);
var k := 0;
for var i := Low(a) + 1 to High(a) do
if a[i - 1] < a[i] then k += 1;
writeln(k);
end.
For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Begin
var a := ArrRandom(20, 0, 100);
a.Println();
writeln(a.Where(x -> x mod 15 = 0).Count());
end.
Системный блок включается в себя: материнская плата,центральный процессор, оперативная память, карты расширений, блок питания, оптический привод, жёсткий диск;вроде все