Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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