Дан фрагмент программы. Что появится на экране?
S:=0;

FOR I:=1 TO 4 DO

BEGIN

MAS[I]:=I;

S:=S+MAS[I];

END;

WRITELN (S);

Вопрос школьника по предмету Информатика

Дан фрагмент программы. Что появится на экране?
S:=0;

FOR I:=1 TO 4 DO

BEGIN

MAS[I]:=I;

S:=S+MAS[I];

END;

WRITELN (S);

Ответ учителя по предмету Информатика

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