Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму...

Question

Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму всех элементов массива, которые больше 9

Answer 1

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.

Answer 2

Const n = 5;
 var
   a:array[1..n]of integer;
   i,c:integer;
 begin
    c:=0;
    for i:=1 to n do
     begin
       read(a[i]);
       if a[i]>9 then
       c:=c+a[i];
     end;
    writeln(c);
 end.