Помогите решить задачу

snaper1993

Дата: Пятница, 16.11.2007, 23:10 | Сообщение # 1

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

Входние данние : у стандартному входном потоке, по одному у строке, розмещена некоторое количество целих неотэмних чисел
не больше 1000, штоо означит ежидневний прирост ферми Дієтенка. количество чисел не перевишает 365 (щитаем,
што нашие действия могут бить у конце етого года).

Виходние данние: у стандартний виходной поток вивести скороченую англыйськое название особенного дня. Например: Mon, Tue,
Wed, Thu, Fri, Sat, Sun (Поток дней йдет от поныдельника к неделе в порядку их следования) . Эсли дней с
максимальним приплодом єсть несколька, то вивести тот, що єсть первим у потоке.

Пример входних даних.

2
9
3

Пример виходних даних

Tue

Приметка. Найбольшее значениэ у потоке 9. Эво порядковий номер 2 і ето єсть второй день 2007 года, штоо припадаэт на вторник.

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

Seqular

Дата: Суббота, 17.11.2007, 14:52 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

snaper1993, Вот, решил. Годится для 2007-го года.

Code

Program Task1;
Uses CRT;
Const
        Day: Array[1..7] of string = ('Mon','Tue','Wed','Thu','Fri','Sat','Sun');
        fl = 'input.txt';

Var
     MaxEl, MaxIndex: Word;
     i, j: Word;
     f: Text;
Begin
ClrScr;
Assign(f, fl);
ReSet(f);
While Not (Eof(f)) do
       Begin
       Readln(f, j); {Считываем элемент}
       Inc(i); {Номер элемента}
       If (j > MaxEl) then
          Begin
          MaxEl := j;
          MaxIndex := i;
          End;
       End;
Close(f);
Writeln(MaxIndex,'-ый день',#13#10,'Прибыль составила: ',MaxEl,#13#10,'Краткое название дня: ',Day[MaxIndex mod 7]);
ReadKey;
End.

Входной файл "input.txt"

Code

2
9
3
4
15
27
32
72
19
11
21
89
32
11
14

Максимальный - 12-ый элемент. Прибыль составила 89. Этот день - Пятница (Fri). Проверь на всякий случай!

Поддерживаю также проект сообщество молодых сисадминов

		Вторник, 07.01.2025
	Pascal 4 All