Найти сумму элементов массива больше данного числа а
Найти сумму элементов массива больше данного числа а
Гость
Ответ(ы) на вопрос:
Гостьvar b:array[1..100] of integer;
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.
Не нашли ответ?
Похожие вопросы