PascalВыделить код
1 prorgam sp;
2 var A: array [1..10] of integer;
3 I,S: integer;
4 begin I:=0;
5 for I:=1 to 10 do S:=S+A[I];
6 writeln ('summa=',S);
7 end
Объяснение:
PascalВыделить код
1 prorgam sp;
2 var A: array [1..10] of integer;
3 I,S: integer;
4 begin I:=0;
5 for I:=1 to 10 do S:=S+A[I];
6 writeln ('summa=',S);
7 end
Объяснение: