//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.
// Если локальным минимумом подразумевается элемент массива
// строго меньше всех имеющихся у него соседей.
// Крайние элементы не рассматриваю так как один сосед
$N = 10;
$a = array(4,2,3,4,3,66,9,8,9,10);
for ($i = 1; $i <= $N - 2; $i++) {
if ( ( $a[$i-1] > $a[$i] ) and ( $a[$i] < $a[$i+1] ) ) {
echo $a[$i]*$a[$i].' ';
}
}?>