<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
<u>Пример</u>
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
Var x,y,c,k,i,a,b:integer;
begin
readln(x,y,a,b);
If (x mod 2=0) or (y mod 2=0) then
c:=(x+y) div 2
else
c:=x mod y;
For i:=1 to 15 do
k:=k+i;
While x<=100 do
x:=x*2;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln(c,' ',k,' ',x,' ',a,' ',b);
end.
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
перевести число 18 в троичную систему счисления, в которой 0=вкл, 1=выкл, 2=миг.
18(10)=200(3)
Число 200 изображено в троичной системе и равно 18 в десятичной. Кол-во цифр в числе 200 - 3. Значит всего три лампочки.
Моя природа двигается и у неё течёт кровь а неживая природа это как камень или ещё что-то