Паскаль дано: массив 1000 чисел кол-во определяется пользователем проверить есть ли числа...

Question

Паскаль
дано:
массив 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.

Comments

Вы что, вопрос пытались перевести с какого-то языка на русский, которым плохо владеете? Если в массиве 1000 чисел, то количество уже задано и как тогда оно "определяется пользователем"? О каких ячейках "с 7 по 12" идет речь? Если по тексту программы, то вроде бы там проверяются элементы массива, но уж никак не "ячейки". И почему у Вас проверка на неравенство нулю называется "есть ли числа"?

---

Более того, проверка ничего не дает, потому что можно просто складывать... если там будут нули, то m все равно нулем останется...

Answer 1

Решение задачи в приложенном файле