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

243

449

Посмотреть ответы 2

Ответы на вопрос:

oleg120906

Информатика

4,8(45 оценок)

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

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.

elenanovikova21

Информатика

4,7(62 оценок)

Оптимизированно относительно предыдущего ответа. так и не понятно причем тут 36 в качестве делителя, потому не использовалось var p, k, i: integer; begin p : = 2; while true do begin k : = 2; for i : = 2 to floor(sqrt(p)) do if p mod i = 0 then if p div i = i then {случай полного квадрата} k : = k + 1 else k : = k + 2; if k = 36 then break; p : = p + 1; end; writeln(p); end.