• Определите, что будет напечатано в результате работы следующей программы. И объясните решение
    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[l];
    for k:= 2 to 10 do begin
    if Dat[k] * m < 0 then
    begin
    m := Dat [k]; num := k
    end
    end;
    write(num);
    end.

Ответы 2

  • Будет...... Не знаю понятия не имею
    • Автор:

      billyhuff
    • 6 лет назад
    • 0
  • Ответ ,скорее всего, -5
    • Автор:

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

Войти через Google

или

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

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

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