Выделить и сменить коротко
Ответ:
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
Объяснение:
В результате выполнения твоей программы результатом будет являться 30