• В таблице Dat хранятся положительные и отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма.

    var k, m, num: integer;
    Dat: array[1..10] of integer;
    begin
    Dat [1] := 7; Dat [2] := -8;
    Dat [3] := 3; Dat [4] := 6;
    Dat [5] := -4; Dat [6] := 3;
    Dat [7] := 5; Dat [8] := -5;
    Dat [9] := 7; Dat [10] := 1;
    num:= 1; m:= Dat [1];
    for k:= 2 to 10 do begin
    if Dat [k] * m < 0 then
    begin
    m := Dat [k]; num := k
    end
    end;
    write (num);
    end.
    Помогите решить и объяснить.

Ответы 1

  • Программа выводит номер элемента массива, следующего за последней переменой знака (см. вложение). Перемена знака проверяется условием Dat [k] * m < 0 - два соседних элемента имеют разные знаки.Будет выведено значение 9.
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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