begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Where(p -> p < 5).Sum.Println;
end.
Пример прилагается
Объяснение:
непозиционных системах счисления вес цифры (т. е. тот вклад, который она вносит в значение числа) не зависит от ее позиции в записи числа. Так, в римской системе счисления в числе ХХХII (тридцать два) вес цифры Х в любой позиции равен просто десяти.
В позиционных системах счисления вес каждой цифры изменяется в зависимости от ее положения (позиции) в последовательности цифр, изображающих число. Например, в числе 757,7 первая семерка означает 7 сотен, вторая — 7 единиц, а третья — 7 десятых долей единицы.
Сама же запись числа 757,7 означает сокращенную запись выражения
700 + 50 + 7 + 0,7 = 7 . 102 + 5 . 101 + 7 . 100 + 7 . 10—1 = 757,7.
var a:array [1..10] of Integer;
i,s:Integer;
begin
Write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(13);
if a[i]<5 then s:=s+a[i];
write (a[i], ' ')
end;
WriteLn;
Write('Сумма элементов меньше 5 равна ',s)
end.
Объяснение:
Массив из 10 элементов.
Заполняется автоматически (функция random).