• В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма

    Var k, m, day: integer;

     Dat: array[1..7] of integer;

    Begin

       Dat[1]:=7;  Dat[2]:=9;

       Dat[3]:=10; Dat[4]:=8;

       Dat[5]:=6;  Dat[6]:=7; 

       Dat[7]:=6;  

       day:= 1; m:=Dat[1];

       for k:=2 to 7 do begin

          if  Dat[k] < m then begin

              m:=Dat  [k]; day:=k

          end

       end

        write(day);

    End. 

Ответы 1

  • Будет напечатано 5, Dat[5]:=6 а 6<7

    • Автор:

      leilani
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years