<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.
<u>Пример</u>
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31
327680 - информационный вес в битах/10240(20*64*8)=32
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение:
Ответ:
1. Моя улюблена страва - горохове пюре (Істинне)
2.Я живу в місті Київ (Істинне)
3.Мене звуть Олег (Хибне)
Объяснение: БГЫ
X = 5; y = 15.
Y = 20;
X = 0.
T = 20;
X = 0 + 20 + 20 = 40;
Y = 40 + 20 = 60.
Ответ: 3.