Объявить целочисленный массив из 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы