• Вычислить значения обработки массива

    Var k, m, day: integer;
    Dat: array[1...10] of integer;
    Begin
    Dat[1] := 2; Dat[2] := 2;Dat[3] := 3;
    Dat[4] := 3; Dat[5] := 4; Dat[6] := 4;
    Dat[7] := 5; Dat[8] := 5; Dat[9] := 6;
    Dat[10] := 6;

    day:=1; m := Dat[1];
    for k := 2 to 10 do
    if Dat[k] = m then
    begin
    m:= Dat[k];
    day := k;
    end;
    write(day);
    End.

Ответы 1

  • В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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