Откуда Можно найти C ++ эту погу и что можете сказать о нём,

AlexSlipknot19, я же только начал изучать C . Прошу по подробней...

int main(void)
{
FILE * fin=NULL;
int sum=0,w;
int m;//переменная, в которую будем записывать самую большую сумму
m=0; //сначала присвоим ей значение 0
fin=fopen("number.txt","r");
while (fscanf(fin,"%d",&w)==1)
{sum+=w;
if (sum>m) {m=sum;}
}
printf("maximum=%d",m);
return 0;
}

вот как-то так. Если ошибся где-то в синтаксисе - Инквизитор исправит (я ж Дэльфиец )

AlexSlipknot19, подправил ^_~
int main()
{
FILE* file = fopen("example.txt","r");
int cur = 0;
int sum = 0;

while (fscanf(file,"%d",&cur)==1)
{
sum+=cur;
}
printf("Sum is = %d", sum);
getchar();
}

Самое сложное, это найти "за что ухватиться"...

Ну если с преобразованием типов все ясно, то само определение большей суммы неясно, и как я только не измудрялся решить задачу в трубопаскале. Точно выяснено, что если в произвольной последовательности чисел не будет отрицательных, то наибольшей суммой будет сумма всех чисел, значит для начала (или как там в С) описываем процедуру подсчёта общей суммы, далее идет условный оператор (как бы это выглядело в паскале):
var
x: byte;
st: string;
begin
st:= '-';
x:= pos (st, string1); {строка с числами}
if x < > 0 then {процедура главного алгоритма} else {тот кусок кода подсчёта общей суммы, в виде процедуры}

А вот этот главный алгоритм - загадка!! блин, даже графическим методом пытался решить, нифига не сдается :mad:

Пожалуйста, это с массивами, сейчас без массивов напишу:
http://codepaste.ru/2499/
Проверка:
http://img243.imageshack.us/img243/338/44515802.png

UPD
Выложил более "красивую" версию с динамическим массивом.

во-первых, зачем pos? Во-вторых, зачем проверять х на 0? Я щас немного занят. Как освобожусь - переведу код InquisiTORа на delphi.

UPD: х лучше взять integer. Открыть файл с помощью fileopen, потом ассоциировать с помощью assignfile, прочитать строку с помощью readln. Все. Остальное - фантазия программера ) Я спать )

Питон врывается^W аккуратно заходит в блог, а то развелось тут сишников и дельфистов.
http://pastebin.ca/1629235 Причем со всякими проверками файла или значений в файле. %%Заметьте, без массивов, ололо, я даже модуль с ними не импортировал. Только один лист.%%

AlexSlipknot19, мой уровень программера находится между [совсем никакой] и [очень слабенький]. И то, что я тоже учавствую в решении задачи, предложенной LEQADA, не означает что я стараюсь помочь ему (потомо что в Си, как я уже говорил не шарю ни грамма), но сам хочу решить эту задачу на паскале (делфи) интереса ради. Поэтому портируй пожалуйста код InquisiTORa, в "паскальный", буду оч. признателен. Попробую объяснить тот кусок кода (абстракцию дилетанта) который я привел выше:
1) Нужно было взять х как integer, byte было ошибкой, просто я тренируюсь подбирать типы, экономящие память;
2) Pos, если я не ошибаюсь, функция типа integer (вот поэтому byte и было ошибкой) и возвоащает целым числом позицию первого символа искомой подстроки (в нашем случае это '-'), а если этого символа нет, функция возвращает 0, соотв. если знак минуса есть, то ищем числа, если нет - просто считаем сумму всех чисел
Спасибо за уточнение, я сделал почти также

Хм... никак не могу найти аналог %d. Ладно, вот тогда аналог с использованием vcl :

procedure TForm1.Button1Click(Sender: TObject);
var
i, sum, maxsum :integer;
begi
n Memo1.Lines.LoadFromFile('number.txt');
sum:=0;
maxsum:=0;
for I := 0 to memo1.Lines.Count -1 do
begi
n sum:=sum+strtoint(memo1.Lines[ i]);
if sum>maxsum the
n maxsum:=sum;
end;
Showmessage('maxsum is '+inttostr(maxsum)+#13+'sum is '+inttostr(sum));
end;

Только учти, цифры в файле должны записываться вертикально. Например:
5
6
-9
-65
89
66

Решил!!!
Сууупер, и без использования массива!
Всем участвующим в решение задачи благоданости.В частности AlexSlipknot19,InquisiTOR. Огромное вам спасибо парни, очень помогли...
Вот код программы:
Нажмите

Ещё одна задача по С. Код написал и компилируется без ошибок, но при запуске
выходит окно предлагающее сообщить об ошибке "Send Error Report" или "Don't Send".
Помогите пожалуйста найти ошибку и исправить её...Буду очень благодарен.
Предполагается, что в файле записана последовательность чисел неизвестной длины
(возможно, пустая). Требуется за один просмотр файла и без запоминания
последовательности в массиве определить число чисел последовательности НЕ РАВНЫХ
абсолютно максимальному элементу в последовательности.

AlexSlipknot19,InquisiTOR мне опять нужна ваша помощь. Пожалуйста, помогите найти ошибку.

LEQADA, я не могу зайти на сайт. Напиши код на другом форуме, например здесь

AlexSlipknot19, выложил..., пожалуйста помоги...Мне на завтра надо. :cry:

/*Здесь х - каждое число в файле.n- кол-во немаксимальных чисел в файле*/
double x;
double n;

используй дабл. Интегер с даблом плохо дружат. Я поменял типы и вроде бы запустилось, вот только че-то не прваильно работает ))) Алгоритм переделай. За основу бери Инквизиторский

AlexSlipknot19, поконкретней...Please поконкретней... Добл тут не причём проверял... Ошибка у меня в мозгах и в теле проги...That's all.

LEQADA, блин, чем тебе не нравится код Инквизитора?

Так что ли? (Если я правильно понял смысл задачи)

UPD
Вот такое еще решение пришло в голову. Написал на коленке, должно работать.
Пишу с КПК так что простите за ненормальный хостинг кода.
http://www.slil.ru/28113476