Определить день, когда был получен наибольший доход

@Morimi · Регистрация: 22.05.2016

Студворк — интернет-сервис помощи студентам

Дано начало программы, нужно её дописать, чтобы она соответствовала условию:
а) Программа определяет день, когда был получен наибольший доход.
б) Программа определяет день, когда был получен наименьший доход.
Начало программы:

Pascal

type Zi = (L, Ma, Mi, J, V, S, D,) ;
 Venit = array [Zi] of real ;
var
 a : Venit ;

Бьюсь над этой программой, всё никак не могу написать

@Morimi · 22.05.2016, 22:48 **[ТС]**

Всё, проблема решена. Всё оказалось настолько просто, что я не могла поверить в то, что там нет ничего сложного)

ФедосеевПавел · 22.05.2016, 22:58

Вы не поверите, но можно ещё упростить.

Pascal

var
  Indx: Zi;
begin
......... ввод
  max:=a[L];
  for Indx:=L to D do
    if max<a[Indx] then
      max:=a[Indx];
  writeln(max);
end.

@Morimi 0 / 0 / 0 Регистрация: 22.05.2016 Сообщений: 2
	22.05.2016, 22:48 [ТС]	2
	Всё, проблема решена. Всё оказалось настолько просто, что я не могла поверить в то, что там нет ничего сложного) Миниатюры 0

Опции темы