Регистрация
Galerina
22.01.2022 17:28
Информатика
Есть ответ 👍

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

175
269
Посмотреть ответы 2

Ответы на вопрос:

dashabelosh
dashabelosh
4,8(43 оценок)

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.

АлинаКовтун
АлинаКовтун
4,6(74 оценок)
Program n2; var  m, k, c, i: word; begin  readln(m);   c : = 0;   k : = 0;   for i : = 1 to m div 3 do  begin    if ((m - i * 3) mod 4 = 0) then    begin      c : = i;       k : = (m - i * 3) div 4;       break;     end;   end;   writeln(c,' ', k)end.

Популярно: Информатика