Написать программы на языке pascal. 1) дан массив из n чисел. определить количество чисел, кратных 3 и некратных 5. 2) дан массив из n чисел. все отрицательные числа увеличить на 0.5, а все неотрицательные на 0.1.

Программы в файлах===

1. Цилиндр, конус и шар;
2. Конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка;
3. Сфера представляет собой совокупность информации, информационной инфраструктуры, субъектов, осуществляющих сбор, формирование, распространение и использование информации, а также системы регулирования возникающих при этом общественных отношений;
5.
1. Выбрать создание детали (Файл-->Создать-->Деталь).
2. Выбрать в дереве модели плоскость x-y.
3. Включить режим эскиз (кнопка панели управления ).
4. На геометрической панели построения выбрать ввод окружность.
5. Ввести параметры: координаты центра - 0,0; диаметр окружности - 35 мм.
6. Закончить редактирование эскиза (повторно нажать на кнопку «эскиз»).
7. На панели редактирования детали выбрать Операция выдавливания.
8. В окне Параметры на вкладке Операция выдавливания установить параметры: прямое направление; расстояние 50 мм (высота цилиндра)и нажать кнопку Создать.
9. На экране должно появиться изображение цилиндра.

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

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка