Вавтоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.
в массиве y(8) содержаться года рождения сотрудников,
в массиве p(8) – сведения о поле,
в массиве s(8) – сведения о семейном положении.
элемент массива y с номером n – год рождения сотрудника n,
элемент массива p c номером n – сведения о поле сотрудника n,
элемент массива s c номером n – сведения о семейном положении сотрудника n.
p(n) = 0, сотрудник n женского пола
p(n) = 1, сотрудник n мужского пола
s(n) = 0, сотрудник n холост (не замужем)
s(n) =1, сотрудник n женат (замужем)
определить: количество холостых мужчин и количество незамужних женщин.

Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.

Программа поиска элемента в произвольном массиве:
const n=10;
var a:array[1..n+1] of integer;
p,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
write('p = '); readln(p);
a[n+1]:=p;
i:=1;
while a[i]<>p do i:=i+1;
if i<=n
 then writeln('Искомый элемент найден, его номер = ',i)
 else writeln('Искомый элемент не найден');
end.

Пример 1:
Исходный массив:
   7  17  16  13   0   1  19  20  12   5
p = 13
Искомый элемент найден, его номер = 4

Пример 2:
Исходный массив:
  20   4   5  12  14  10  11  16  18  20
p = 15
Искомый элемент не найден