3 DIM i As Int, j As Int, P As Int, K As Int
7 P = 0 : K = i
9 If NAZ$=RM$(j) Then P = P + KOL Else RM$(j) = NAZ$ : P = KOL
11 KM(i) = P
Вроде бы так
Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if (a mod 2=0) then sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(k);
writeln(sum);
end.
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=15;
var a:=ArrRandom(n,-49,49); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println;
var max:=Range(3,n,3).Select(i->b[i-1]).Max;
Writeln('Искомый элемент: ',max)
end.
<u>Пример</u>
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34
<span>10001 = 10011100010001</span>2
<span>111011 = 11011000110100011</span>2
100011 = 110000110101010112