Решить . язык паскаль. вася решил посчитать, в какой - вопрос №10046045 от irinaantipina 31.12.2020 02:51

Question

Информатика: Решить . язык паскаль. вася решил посчитать, в какой день меньше всего уроков, если известно, что они учатся 5 дней. формат ввода: a[1] - количество уроков в понедельник a[2] - количество уроков во вторник a[3] - количество уроков в среду a[4] - количество уроков в четверг a[5] - количество уроков в пятницу формат вывода: i - номер дня пример ввода: 6 5 4 5 7 пример вывода: 3

irinaantipina · Answer

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.

Решить . язык паскаль. вася решил посчитать, в какой день меньше всего уроков, если известно, что он