ОЧЕНЬ НАДО В эл. Таблице значение формулы = СРЗНАЧ(А4D5) равно5. Чему равно значение формулы=СРЗНАЧ(А4С5) если значение формулы =СУММ (D4D5) равно 16 ответы: 10.3.4.5

Ffunction find(x: integer): boolean;
begin
  if pos('7', IntToStr(x)) = 0    
    then result := False    
  else result := True
end;

const
  n = 1000;

var
  a: array[1..n] of integer;
  ii: integer;
  i, o: text;

begin
  AssignFile(i, 'Input.dat');
  AssignFile(o, 'Output.dat');
  Rewrite(o);
  Reset(i);  
  for ii := 1 to n do    
    readln(i, a[ii]);  
  for ii := 1 to n do     
    if find(a[ii])    
      then writeln(o, a[ii]);
  CloseFile(i);
  CloseFile(o);
end.

Функция Find пытается разыскать цифру 7 в целом числе, которое она получает в качестве аргумента. Если поиск успешен, возвращается "Истинно", если нет - "Ложно" - это символизирует успешность поиска.
В программе используются два текстовых файла - i, связанный с файлом input.dat, и o, связанный с файлом Output.dat.
Данные из input.dat считываются в целочисленный массив a, содержащий 1000 элементов.
Затем элементы массива просматриваются, начиная с первого, на предмет наличия в элементе числа, содержащего цифру 7, что проверяется вызовом функции Find. Каждое число, содержащее цифру 7, выводится в файл Output.dat.

Недостаток программы: если в файле input.dat будет меньше 1000 чисел, программа все равно будет просматривать все 1000 элементов, анализируя оставшийся "мусор". так же есть большая вероятность, что программа будет аварийно завершена, если этот "мусор" не сможет быть интерпретирован, как целые числа.

Const
  N = 30;

var
  a: array [1..N] of integer;
  i, nel, x: integer;

begin
  writeln('Введите элементы массива');
  for i := 1 to N do read(a[i]);
  writeln('введите Х');
  readln(x);
  nel := 0;  // номер найденного элемента
  i := 1;
  while (i <= n) and (nel = 0) do
  begin
    if a[i] = x then nel := i;
    i := i + 1
  end;
  if nel > 0 then
    writeln('Номер элемента ', nel)
  else
    writeln('Не найден элемент, удовлетворяющий условию')
end.

Тестовый пример:

Введите элементы массива
1 3 6 8 4 9 14 -4 7 45 4 8 0 23 63 253 23 453 54 20 54 12 -56 3 0 -34 28 27 90 23
введите Х
0
Номер элемента 13