Задача по Паскалю

[limp]

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

Пётр в течении месяца каждый раз вернувшись из леса записывал сколько находил боровиков(Grib1) ,подберёзовиков(Grib2) и лисичек(Grib3). Иногда он ходил в лес несколько раз в день.

Напишите программу которая:
1)Сосчитала бы кол-во собраемых грибов(по видам,т.е.Grib1 Grib2 Grib3 ) каждый день.
2) Установила бы день в который найдено наибольше кол-во грибов и сколько их найдено в тот день.

Начальные данные записаны в .txt файл U1.txt. В первой строчке записано кол-во походов за грибами n (1<=n<=100). Далее представленны данные о грибах. Одной строчке присвоен один поход за грибами. В ней записано четыре числа: номер дня d (1<=d<=31), кол-во собранных грибов Grib1, Grib2, Grib3. Пётр записывая данные в файл не придерживался последовательности.

Результат должен быть отражён в текстовом файле U1rez.txt . Каждому дню присваивается 1 строчка. Дни должны выстраиваться в порядке увеличения. Необходимо отражать только те дни,когда был найден хоть 1 гриб. Сначала указывается номер дня,далее сколько за тот день было собрано грибов Grib1, Grib2, Grib3.(если какого-то вида гриба не найдено то печается ноль.) В последней строчке отражается 2 числа: номер дня в который собрано больше всего грибов и кол-во грибов собранных в тот же день.(если есть несколько таких дней то надо отображать день ,номер которого меньше )

Указания:
- напишите функцию для нахождения номера дня в который собранно больше всего грибов
- напишите процедуру для отображения списка собранных грибов по дням


U1.txt

11
2 8 4 0
3 1 0 9
1 2 3 4
5 4 14 2
2 4 4 4
3 0 0 0
15 25 45 13
28 13 13 13
16 2 0 2
16 5 15 25
3 4 44 444





U1rez.txt

1 2 3 4
2 12 8 4
3 5 44 453
5 4 14 2
15 25 45 13
16 7 15 27
28 13 13 13
3 502

[Veselyn]

Вам нужно написать программу с нуля?

[limp]

К сожалению да..

[koma_grusha]

program Pascal_U1;

uses
    SysUtils;

var
    f_in, f_out: Text;
    arr: array [1..31, 1..4] of Integer;
    n, max: Integer;
    d, gr1, gr2, gr3: Integer;

begin
    // считаем все с входного файла в массив
    AssignFile(f_in, 'U1.txt');
    Reset(f_in);
    Read(f_in, n);  //количество походов
    while n > 0 do
        begin
        Readln(f_in, d, gr1, gr2, gr3);
        if (gr1 + gr2 + gr3) > 0 then
            begin
            arr[d,1] := d;              //день
            arr[d,2] := arr[d,2] + gr1; //гриб 1
            arr[d,3] := arr[d,3] + gr2; //гриб 2
            arr[d,4] := arr[d,4] + gr3; //гриб 3
            end;
        n := n-1;
        end;
    CloseFile(f_in);

    //работаем с выходом    
    AssignFile(f_out, 'U1rez.txt');
    Rewrite(f_out);
    max := 0;
    for n := 1 to 31 do     //записываем каждый день
        begin
        if arr[n,1] = 0 then
            continue;
        Writeln(f_out, arr[n,1], arr[n,2], arr[n,3], arr[n,4]);

        if (arr[n,2] + arr[n,3] + arr[n,4]) > max then  //проверяем на сумму
            begin
            max := arr[n,2] + arr[n,3] + arr[n,4];
            d := arr[n,1];    //запоминаем минимальный день
            end;
        end;
    Writeln(f_out, d, max); //записываем день и сумму в конец файла
    CloseFile(f_out);
end.

работает верно - это проверено, а по выводу - пробелы сам поставишь, и подправишь, что не понравится. единственное входной файл рядом положи.

[limp]

Спасибо большое!Очень помогли!

[koma_grusha]

да незачто, можешь обращаться