На ПаскалеProgram Armashka;
var x:array[1..10] of integer;
Sum,i:integer;
begin
sum:=0;
for i:=1 to 10 doread(a[i]);
for i:=1 to 10 do
sum:=sum+a[i] ;Writeln(Sum);end.Вроде бы ошибок нет. Если что-то не так или нужен другой язык программирования пиши в ЛС
На Паскале
Program Armashka;
var x:array[1..10] of integer;
Sum,i:integer;
begin
sum:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
sum:=sum+a[i] ;
Writeln(Sum);
end.
Вроде бы ошибок нет. Если что-то не так или нужен другой язык программирования пиши в ЛС