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

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