Выбери верно записанную программу на языке программирования Паскаль. Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 24).
var
i,s:integer;
begin
clrscr;
for i:=1 to -8 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to -8 do
s:=s+a[i];
writeln('s=',s);
readkey
end.
uses crt;
var
a:array[1..24] of integer;
i,s:integer;
begin
clrscr;
for i:=1 to 24 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to 24 do
s:=s+a[i];
writeln('s=',s);
readkey
end.
uses crt;
var
a:array[1..-8] of integer;
i,s:integer;
begin
clrscr;
for i:=1 to -8 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to -8 do
s:=s+a[i];
writeln('s=',s);
readkey
end.
ответ: Она единственная запустилась без ошибок.
uses crt;vara:array[1..24] of integer;i,s:integer;beginclrscr;for i:=1 to 24 dobeginwrite('a[',i,']=');read(a[i]);end;s:=0;for i:=1 to 24 dos:=s+a[i];writeln('s=',s);readkeyend.