Question

дан одномерный массив.найти сумму чисел меньше 8

Answer 1

const
  n = 16;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(20);
    Write(a[i]:3);
    if a[i]<8 then s:=s+a[i]
  end;
  Writeln;
  Writeln('Сумма элементов, меньших 8, равна ',s)
end.

Тестовое решение:
Элементы массива
  8  5 12 10  4  7 11 18 13 17 18  2  5  1  3 16
Сумма элементов, меньших 8, равна 27