Задания 10 по огэ по информатике 2017 Var k, m: integer; Dat: array[1…10] of integer;...

Question

Задания 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.

Comments

ответ хотелось бы чтобы решение было полностью собъяснениями

Answer 1

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

Comments

по подробнее можн,о я всё равно не понимаю