Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти су
Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму всех элементов массива, которые больше 9
Ответ(ы) на вопрос:
Гость
Var
a: array [1..5] of integer;
i,s: integer;
begin
for i := 1 to 5 do
read(a[i]);
s := 0;
for i := 1 to 5 do
if a[i] > 9 then
s := s + a[i];
write(s)
end.
Не нашли ответ?
Похожие вопросы