Очень надо решите Дано дерево иерархической файловой структуры. Заглавными буквами обозначены каталоги, строчными – имена файлов. Определите полный путь к файлу air.bmp
Выберите один ответ:
IVAN \ ALEX \ air.bmp
NIKITA\ IVAN \ ALEX \ air.bmp
NIKITA\ ALEX \ air.bmp
IVAN \ ALEX \ air.bmp

134

372

Посмотреть ответы 1

Ответы на вопрос:

vikulek1

Информатика

4,8(96 оценок)

var a: array[1..10,1..10]of integer; i,j,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random(9)+1; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end; s: =1; for i: =2 to 10 do begin k: =a[i,1]; for j: =2 to 10 do beginif i mod 2 = 0 then if a[i,j]> k then k: =a[i,j]; if (j=10) and (i mod 2=0) then s: =s*k; end; end;

writeln(s); end.