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

Объявить целочисленный массив из 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.