С объяснением пожалуйста 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.

Вопрос школьника по предмету Информатика

С объяснением пожалуйста
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.

Ответ учителя по предмету Информатика

m                    k
3                     3
-4                    5
3                      6

 Ответ: m=3