Собъяснением 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 end end; write(m); end.

M                    k3                      3-4                    53                      6

  ответ: m=3

1) Прочитать задачу.
2) Выписать известные и неизвестные нам переменные в «дано». (В задаче №1 к известным переменным относятся стороны: a,b ;к неизвестным — площадь S и периметр P)
3) Вспомнить либо составить необходимые формулы. (У нас: S=a*b; P=2*(a+b))
4) Составить блок-схему.
5) Записать решение на языке программирования Pascal.

Запишем условие в более кратком виде.

Дано: a,b

Найти: S,P

Блок-схема:

так надо делать

* Коса — у девушки на голове, коса — орудие для косьбы, коса — географическое название (Куршская коса) .
* Ключ — музыкальный знак, ключ — от двери, ключ — природный источник воды, ключ — гаечный ключ, ключ - регистрационный номер, вводимый для установки платного программного обеспечения.
* Бабочка — насекомое, галстук-бабочка, нож-бабочка.
* Лук — растение, лук — оружие.
* Ручка — пишущая (гелевая, шариковая и т д) , ручка — человеческая рука, дверная ручка.
* Кисть — связка верёвок, кисть — руки, кисть — ягод (кисть рябины) , кисть — кисточка (для рисования) .
* Рысь — бег, рысь — животное.
* Тройка — лошадей, тройка — отметка.
* Мир — вселенная, мир — отсутствие войны, вражды.
* Балка — часть сооружения, брус, опирающийся на что-нибудь в нескольких точках (на стены, устои) , балка — дли

---------------------------