Одномерный массив.

[ZX Spectrum-128]

procedure TForm1.Button1Click(Sender: TObject);
const
  n=10;
{ Написать программу,которая проверяет, есть ли во введенном с
  клавиатуры массиве число 5.Если есть такое число,то вывести
  на экран "да" а иначе вывести "нет".}
var
  a:array [1..n] of integer;
  i:integer;
  s:string;
  YesOrNo:boolean;
begin
  Randomize;
  Memo1.Lines.Clear;
  s:='';
  YesOrNo:=false;
  for I := 1 to n do
    begin
      a[i]:=RandomRange(-10,10);
      s:=s+IntToStr(a[i])+' ';
    end;
  Memo1.Lines.Add(s);
  for i:=1 to n do
    if a[i]=5 then
      YesOrNo:=true;
  if YesorNo then
    s:='Да'
  else
    s:='Нет';
  Memo1.Lines.Add(s)
end;

[Юля_7182]

a:array [1..n] of integer; ошибку выдает указывает на "n"

[ZX Spectrum-128]

Скриншот сделайте, раз. Текст вашей программы сюда, два.

[Serge_Bliznykov]

практически уверен, что у TC банально забыто указание константы N:

const
  n=10;

[ZX Spectrum-128]

Следующая ошибка будет на randomrange()
Нужно добавить в uses модуль math

[Юля_7182]

нет const
n=10; я указала

[Юля_7182]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
a:array [1..n] of integer;
  i:integer;
  s:string;
  YesOrNo:boolean;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  n=10;
  { Написать программу,которая проверяет, есть ли во введенном с
  клавиатуры массиве число 5.Если есть такое число,то вывести
  на экран "да" а иначе вывести "нет".}
begin
 Randomize;
  Memo1.Lines.Clear;
  s:='';
  YesOrNo:=false;
  for I := 1 to n do  begin
      a[i]:=RandomRange(-10,10);
      s:=s+IntToStr(a[i])+' ';
    end;
  Memo1.Lines.Add(s);
  for i:=1 to n do
    if a[i]=5 then
      YesOrNo:=true;
  if YesorNo then
    s:='Да'
  else
    s:='Нет';
  Memo1.Lines.Add(s)
end;
end;

end.

___________
Вы когда научитесь код форматировать?!!!

Напоминаю, что код на форуме нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

есть такое понятие в ЯП - область видимости.
Рекомендую ознакомится на досуге.
Если кратко, то переменная (тип, константа, функция и т.д.) видна в том блоке, где её объявили и во вложенных блоках и не видна в других (вышестоящих или одного порядка) блоках кода.

var
a:array [1..n] of integer;
i:integer;
s:string;
YesOrNo:boolean;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  n=10;

смотрите. Вы при объявлении массива используюте константу n (выделил в вашем коде).
А саму константу Вы объявили в процедуре Button1Click.
Значит, эта константа видна внутри процедуры Button1Click и НЕ ВИДНА за её пределами.

попробуйте так:

const
  n=10;

var
  a:array [1..n] of integer;
  i:integer;
  s:string;
  YesOrNo:boolean;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 { Написать программу,которая проверяет, есть ли во введенном с
  клавиатуры массиве число 5.Если есть такое число,то вывести
  на экран "да" а иначе вывести "нет".}
begin
 Randomize;
....

[ZX Spectrum-128]

Кхм, вроде как обьяснять и учить - моя профессия, но вот чтобы так ясно и доходчиво, не всегда у меня получалось.
Класс! Безусловный +1 !!!

[Юля_7182]

Огромное спс!получилось ура