<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
Ответ:
460 байт= 3680 бит
Объяснение:
1 Байт равен 8 битам
Просто умножь 460 на 6 и получишь 3680.
1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)
var
i,n,s, k : integer;
begin
s:=0;
readln (n);
for i:= 1 to n do begin
readln (k);
if k mod 10 =0 then s:= s+k;
end;
writeln (s);
end.