Паскаль дано:
массив 1000 чисел
кол-во определяется пользователем
проверить есть ли числа с 7 по 12 ячейку и если есть найти их сумму.
есть предполагаемое решение:
var i,n,m:integer;
a:array[1..1000] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
m:=0;
for i:= 7 to 12 do
if (a[i]<0) or (a[i]>0) then
m:=m+a[i];
write(m)
end.
массив 1000 чисел
кол-во определяется пользователем
проверить есть ли числа с 7 по 12 ячейку и если есть найти их сумму.
есть предполагаемое решение:
var i,n,m:integer;
a:array[1..1000] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
m:=0;
for i:= 7 to 12 do
if (a[i]<0) or (a[i]>0) then
m:=m+a[i];
write(m)
end.
More Questions From This User See All