С ИНФОРМАТИКОЙ Выбери верно записанную программу на языке программирования Паскаль.

Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 23).

1)uses crt;
var
a:array[1..23] of integer;
i,s:integer;
begin
clrscr;
for i:=1 to 23 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to 23 do
s:=s+a[i];
writeln('s=',s);
readkey
end.

2)var
i,s:integer;
begin
clrscr;
for i:=1 to -7 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to -7 do
s:=s+a[i];
writeln('s=',s);
readkey
end.

3)uses crt;
var
a:array[1..-7] of integer;
i,s:integer;
begin
clrscr;
for i:=1 to -7 do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;
for i:=1 to -7 do
s:=s+a[i];
writeln('s=',s);
readkey
end.

natashasheh    2   03.12.2020 18:28    10