Какой получится вывод после выполнения данной программы, при этом каждый элемент равен своему индексу?
var A:array [1..10] of integer;
i:byte;
S:integer;
begin
for i:=1 to 10 do read (A[i]);
S:=0;
for i:=1 to 10 do
if i mod 3 = 0 tnen S:=S+A[i];
write (`S=`, S)
end.
Варианты ответа:
1. s=10
2. s=3
3. s=9
4. s=18
5. s=1