сумма отрицательных чисел, с массивом Опции

[el humor]

Здравствуйте!

Я сделал простую программу на 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+1;
for i:=1 to n do
writeln ('summa otricatelnih chisel:');
writeln (s);
end.

[compiler]

собственно вот

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.

оптимизация
можна сделать динамический массив, что б вводить более 100 чисел и не занимать лишнию память в случае меньшего числа членов...
можна обойтись без одной переменной...

Сообщение отредактировано: compiler - 6.06.2007 17:45