посмотрите пожалуйста

[merets]

1.
Известна информация о 20 сотрудниках фирмы: фа
милия, имя, отчество, адрес и дата поступления на работу (ме
сяц, год). Напечатать фамилию, имя, отчество и адрес каждо
го из сотрудников, проработавших в фирме не менее трех лет.
День месяца не учитывать (при совпадении месяца поступле
ния с текущим месяцем считать, что прошел полный год).

2.
Торговый склад производит уценку хранящейся
продукции. Если продукция хранится на складе дольше n
месяцев, то она уценивается в 2 раза, а если срок хранения
превысил m (m < n) месяцев, но не достиг n, то — в 1,5 раза.
Ведомость уценки товаров должна содержать следующую
информацию: наименование товара, количество товара,

3.

Дана строка, содержащая текст. Найти длину само
го короткого и самого длинного слова.

4.

Дана строка. Преобразовать ее, заменив точками все
двоеточия, встречающиеся среди первых n/2 символов, и за
менив точками все восклицательные знаки, встречающиеся
среди символов, стоящих после n/2 символов.

5.

Написать программу, которая перевернет введенное
с клавиатуры слово или фразу.

6.

Заданы имена девочек. Определить какие из этих имен встречаются только в некоторых
классах

7.

В каждой строке двухмерного массива поменять
местами первый элемент и любой из максимальных

8.

Сформировать квадратную матрицу порядка n × n по
заданному образцу (n — четное):

1 1 1 ... 1 1 1
1 0 0 ... 0 0 1
1 0 0 ... 0 0 1
. . . . . .
1 0 0 ... 0 0 1
1 1 1 ... 1 1 1

9.

Определить:минимальный элемент главной диагонали массива

10.

Задан двухмерный массив вещественных чисел.
Найти:
а) максимальную сумму абсолютных значений элементов
по строкам и номер строки с такой суммой;
б) максимальную сумму абсолютных значений элементов
по столбцам и номер столбца с такой суммой.

11.

На метеопосту за период наблюдения в n дней была
получена таблица величины атмосферного давления. Запи
сать программу, которая:выводит исходный, упорядоченный массив и резуль
таты вычислений.

12.

Найти произведение всех элементов массива целых
чисел, меньших 0.

13.

Дан массив целых чисел. Выяснить какой элемент массива больше, kй или рй.

[Lawless]

12.

Найти произведение всех элементов массива целых
чисел, меньших 0.

const n = 20;
var a:array[1..n] of integer;
  i:byte;
  b:longint; 
Begin
  b:= 1;
  for i:= 1 to n do
    if a[i] < 0 then
      b:= b*a[i]
end.