Question

Дан фрагмент программы. Что появится на экране? S:=0; FOR I:=1 TO 4 DO BEGIN MAS[I]:=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] := i;
    s := s + mas[i];
  end;
  writeln(s);
end.

Ответ:10