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.
<span>Есть файл Байкал.png. Он находится в каталоге "Экскурсии" - получаем: Экскурсии/Байкал.png Этот каталог перенесли в каталог реклама. Получили: Реклама/Экскурсии/Байкал.png А полное название будет вместе с диском, где этот файл находится: D:/</span><span>Реклама/Экскурсии/Байкал.png