Дан одномерный массив.найти сумму чисел меньше 8
Дан одномерный массив.найти сумму чисел меньше 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
Не нашли ответ?
Похожие вопросы