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

Алгоритмический язык

алг
нач
    целтаб Dat[1:10]
    цел k, m, num
    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]
        нц для к от 2 до 10
        если Dat[к]* m < 0 то
            m := Dat[к]; num := к
        все
    кц
    вывод m
кон

Бейсик

DIM Dat(10) AS INTEGER
    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
            IF Dat(k)* m < 0 THEN
                m = Dat(k)
                num - k
            END IF
        NEXT k
PRINT m
END

Паскаль

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 (m);
end.