Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Найти: сумму положительных элементов, значения которых кратны 3 и 5. 2. Определить, есть ли пара соседних элементов с суммой,равной заданному числу ! ! !

Const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;

function sum: integer;
var
  tmp, prev, cur, s, i: integer;
  flg: boolean;
begin
  s := 0;
  for i := 1 to n do
  begin
    flg := true;
    tmp := a[i];
    prev := 9;
    cur := 0;
    while tmp > 0 do
    begin
      cur := tmp mod 10;
      if cur > prev then
      begin
        flg := false;
        break;
      end;
      prev := cur;
      tmp := tmp div 10;
    end;
    if flg then inc(s);
  end;
  sum := s;
end;

begin
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(1000);
    write(a[i], ' ');
  end;
  writeln;
  writeln('ответ: ', sum);
end.

Программа восстанавливает данные жестких и внешних дисков, а также любых других устройств под управлением файловых систем FAT, NTFS. Утилита объединяет комплекс алгоритмов, восстанавливающих имя, атрибуты, содержимое файла и оригинальную структуру каталогов диска.Кроме существующих, утилита находит все ранее созданные разделы диска и выводит их пользователю для дальнейшего анализа и поиска удаленной информации. Поддерживая FAT16, FAT32 и NTFS, используемые в Windows, программа исправляет любые ошибки логической структуры жесткого диска и возвращает его содержимое быстрее, чем вы досчитаете до трех.