Здравствуйте!
Я сделал простую программу на Pascal, которая ищет сумму отрицательных чисел в массиве.
Вопрос. Почему, когда я запускаю программу, она не выводит результат суммы отрицательных? В чем ошибка? Если ошибка очевидная, огромная просьба указать мне на неё
Заранее спасибо.
собственно вот
uses crt;
var
a:array [1..100] of integer;
s,n,i:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
clrscr;
for i:=1 to n do
if A[i]<0 then s:=s+A[i]; //считаем не количество а сумму членнов
writeln ('summa otricatelnih chisel:');
writeln (s);
readln; //это добавляем чтоб окно, если ты будеш просто запускать в винде,
read; //не закрылось после того как будет написан результат...
end.