Помогите пожалуйста дополнить программку Опции

[blackw0lf]

Здравствуйте.Я учусь..
Вот есть программка,которая определяет доход предприятия за неделю:

Код

program test;
uses
    crt;
type
    dni = (pn, vt, sr, cht, pt, sb, vs);
    Venit = array[dni] of real;
var
    vect : Venit;
    i : dni;
    dohod : real;
begin
    clrscr;

    textColor(YELLOW);
    dohod := 0;
    for i := low(dni) to high(dni) do
    begin
        write('Vvedite informatsiu za ', ord(i) + 1, ' - y den nedeli: ');
        readln(vect[i]);
        dohod := dohod + vect[i];
    end;

    writeln;
    textColor(RED);
    write('Sredniy dohod za nedelu sostavil: ', (dohod / 7):5:2);

    readln;
end.

Мне необходимо дополнить так,чтобы она определяла:
1).День когда был получн наибольший доход.
2).День когда был получен наименьший доход.

Помогите пожалуйста..Заранее благодарен.

[volvo]

Тебе ж на Сурсах уже ответили, зачем дублировать?

[blackw0lf]

Тебе ж на Сурсах уже ответили, зачем дублировать?

Да.извините,просто нужно было срочно. Вот решил спросить

Сообщение отредактировано: blackw0lf - 21.09.2009 1:11