10 по огэ по информатике 2017 var k, m: 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 if dat [ k] *m< 0 then begin m : = dat[k] num: = k end; writeln(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 
if Dat [ k] *m< 0 then 
begin
m := Dat[k];
num:= k
end; 
writeln(m); 
End.

ответ 
3