Встановіть відповідність між операторами та їх призначенням. For i := 1 to 10 do If A[i]<0 Then S := S + A[i]

К := 0; For i := 1 to 10 do If A[i]<0 Then К := К + 1

For i := 1 to 10 do If A[i]<0 Then ListBox1.Items.Add (IntToStr(A[i]))

For i := 1 to 10 do If A[i]<0 Then А[i]:= 0

Пояснение:

Нам дан путь к каталогу "Системное".

C:\Информатика\Программное обеспечение\Системное.

Из этого следует, что каталог "Системное" находится в каталоге "Программное обеспечение", который в свою очередь находится в каталоге "Информатика", который находится на диске C.

Подняться на один уровень вверх - это значит перейти в католог, который находится выше выбранного нами каталога.

Спуститься же на один уровень вниз - значит перейти в каталог который находится ниже выбранного нами каталога.

Вообще все эти каталоги можно рассмотреть как корни дерева: один толстый корень (диск С) начинает разделяться на многие другие корни (каталоги).

Исходя из этих пояснений решим задание.

C:\Информатика\Программное обеспечение\Системное.

Если мы поднимаемся на один уровень вверх, значит мы переходим из каталога "Системное" в каталог который находится выше, то есть в "Программное обеспечение".

Далее мы поднимаемся ещё на один уровень вверх: переходим из каталога "Программное обеспечение" в каталог "Информатика".

Далее мы опускаемся на один уровень вниз: из каталога "Информатика" переходим в каталог "7класс". И мы ещё раз опускаемся из каталога "7класс" в файл "Задания.doc".

Нам остаётся только выписать путь из диска С в файл "Задания.doc"

C:\Информатика\7класс\Задания.doc.

Вот и всё.

C:\Информатика\7класс\Задания.doc.

Вот и всё.

Если у Вас есть вопросы по заданию - можете задать их мне.

Удачи Вам! :)

Uses graphABC;beginsetpenwidth(3);setwindowsize(600,700);ellipse(120,350,280,480);circle(200,300,60);circle(200,210,40);line(170,90,230,90);line(160,180,240,180);line(170,90,160,180);line(230,90,240,180);floodfill(200,173,clblack);floodfill(200,123,clblack); setbrushcolor(clblack);circle(190,200,5);circle(210,200,5);line(200,210,220,220);line(200,220,220,220);line(200,210,200,220);floodfill(204,214,clblack);setpenwidth(5);arc(200,230,10,180,0);line(70,320,170,250);line(230,250,330,300);line(300,450,350,200);
line(350,200,320,140);line(350,200,340,140);line(350,200,360,140);line(350,200,380,140);line(350,200,400,140);end.