Question

Выбери верно записанную программу на языке программирования Паскаль.
Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 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.

Answer 1

Ответ: Она единственная запустилась без ошибок.

• 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.