<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
Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Uses crt;
var a,b,c : integer;
begin
writeln('Введите a (c<a*b)');
readln(a);
writeln('Введите b (c<a*b)');
readln(a);
writeln('Введите c (c<a*b)');
readln(a);
repeat
c = c*2;
until c > a*b;
writeln(a,b,c);
Оглавление- скоряет поиск глав, параграфов.
Система указателей в словаре - для различия по содержанию, рубрик, группировок материала.
Каталог в библиотеке - для бысторого поиска нужной книги.