Анатолий
6 год назад
С объяснением пожалуйста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 endend;write(m);end.
ОТВЕТЫ
Галина
Oct 24, 2020
m k
3 3
-4 5
3 6
3 3
-4 5
3 6
: m=3
457
Смежные вопросы:
