Помогите пожалуйста
Срочно!!!
Пожалуйста

алг

нач

целтаб 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.