Question

Дан фрагмент программы. Что появится на экране? S:=0; FOR I:=1 TO 4 DO BEGIN MAS[I]:=2*I; S:=S+MAS[I]; END; WRITELN (S)

Answer 1

Var 
s: integer; 
mas: array[1..4]of integer;
begin 
s := 0; 
for var i := 1 to 4 do 
begin   
mas[i] := 2 * i;   
s := s + mas[i]; 
end; 
writeln(s);
end.

Ответ:20