Решить . язык паскаль. вася решил посчитать, в какой день меньше всего уроков, если известно, что они учатся 5 дней.
формат ввода:
a[1] - количество уроков в понедельник
a[2] - количество уроков во вторник
a[3] - количество уроков в среду
a[4] - количество уроков в четверг
a[5] - количество уроков в пятницу
формат вывода:
i - номер дня
пример ввода:
6
5
4
5
7
пример вывода:
3
program n_1;
var a:array[1..5] Of Integer;
var i, min, day: Integer;
begin
day := 0;
min := 999;
for i := 1 To 5 do begin
Readln(a[i]);
If min > a[i] Then min := a[i];
If min = a[i] Then day := i;
end;
Writeln(day);
end.