Задание
Begin
A
A
A
A
A
s:= 0;
for k := 1 to 9 do
if A
begin
s:= s + A
end;
writeln\(s\);
End.
Найти значение S.
Var k, s: integer;
A: array
\[1\.\.9\]
of integer;Begin
A
\[1\]
:=6;A\[2\]
:=11;A
\[3\]
:=7;A\[4\]
:=12;A
\[5\]
:=13;A\[6\]
:=5;A
\[7\]
:=9;A\[8\]
:=3;A
\[9\]
:=4;s:= 0;
for k := 1 to 9 do
if A
\[k\]
>= 9 thenbegin
s:= s + A
\[k\]
;end;
writeln\(s\);
End.