begin
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
ИК-порт:пульт-телевизор.
Bluetooth: Мобильный телефон
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>
10 бит, 20 бит, 2 байта, 2кбайта, 2024 байт (так как в одном кбайте 1000 байт)