ПОМОГИТЕ С ИНФОРМАТИКОЙ СРОЧНО,ПОЖАЛУЙСТААА!! Выбери верно записанную программу на языке программирования Паскаль.
Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 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.
Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 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.
More Questions From This User See All