Одномерный массив с операторами mod и div . задан фрагмент программы: begin A[1]:= 103;...

Question

Одномерный массив с операторами mod и div . задан фрагмент программы:
begin
A[1]:= 103; A[2]:=25; A[3]:=15; A[4]:=32;A[5]:=27;A[6]:=14;A[7]:=31 A[8]:=11
for i=1 to 7 do
begin
s3:=s3+3-A[i+1] div (A[i]-3);
if A[i]mod3=0
then s1:=s1+(A[i]+4)div2
else s2:=s2-4+A[i+1]mod5;
end;
какие значения примут переменные s1,s2,s3 в результате выполнения данного блока программы?

Answer 1

Ответ: 24, -16, 17.

//Пруф:
//PascalABC.Net 3.2
begin
var a:=arr(103, 25, 15, 32, 27, 14, 31, 11);
var s1:=0; var s2:=0; var s3:=0;
for var i:=0 to 6 do
begin
s3:=s3+3-A[i+1] div (A[i]-3);
if (A[i]mod 3)=0
then s1:=s1+(A[i]+4) div 2
else s2:=s2-4+A[i+1] mod 5;
end;
print (s1, s2, s3);
end.