// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
<u><em>Тестовое решение</em></u>
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
writeln; s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
if i mod 2<>0 then
s:=s+a[i,j];
end;
if i mod 2<>0 then
writeln(s:6);
end;
<span> end.</span>
Процессор взаимодействует с оперативной памятью не напрямую, а через специальный контроллер, подключенный к системной шине процессора приблизительно так же, как и остальные контроллеры периферийных устройств
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>