Поделитесь своими знаниями, ответьте на вопрос:
Решить . язык паскаль. вася решил посчитать, в какой день меньше всего уроков, если известно, что они учатся 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.