Найдите ошибку плз program ideone;
var a:array[1 .. 250] of integer;
s,n,i:integer;
begin
write('Please enter length of the array: ');
readln(n);
for i:=0 to n do
begin
write ('Please enter an array item ');
readln (a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('s=',s);
end.


3 5 31

Неа

Попробуй вместо строки for i:=0 to n doНаписать: for i:=1 to n do

var a:array[1 .. 250] of integer;s,n,i:integer;beginwrite('Please enter length of the array: ');readln(n);for i:=1 to n dobeginwrite ('Please enter an array item ');readln (a[i]);end;s:=0;for i:=1 to n dos:=s+a[i];writeln('s=',s);end.Пример (в первой строке вводится количество элементов, далее - сами элементы):Please enter length of the array: 5Please enter an array item 3Please enter an array item 8Please enter an array item 2Please enter an array item 4Please enter an array item 6s=23