Вот есть программка,которая определяет доход предприятия за неделю:
Код
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).День когда был получен наименьший доход.
Помогите пожалуйста..Заранее благодарен.
