Определить количество положительных элементов массива А.

К: = 0; {Счетчик элементов с заданным свойством}

For i: = 1 to N do  If A [i]> 0 Then К = K + 1;

Вариант алгоритма решения задачи:

1. увеличивать индекс i до тех пор, пока элемент с индексом i не удовлетворять данному условию и величина i не превышает размерность массива;
2. eсли после выхода из цикла i > N, это означает, что в массиве не найдено элемента, значение которого соответствует условию, в противном случае определить номер первого элемента массива А [1..N], значение которого равно Р.

i: = 0;
Repeat
       i = i + 1
Until (A [i] = P) Or (i> N); {N - количество элементов в массиве А}

If i <= N Then Edit1.Text: = 'i =' + IntToStr (i)
         else Edit1.Text: = 'значения не найдено';

Интерфейс проекта

Итог:

Программный код проекта

procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;  a:array[1..12] of integer;      // переменная и массив целого типа
begin
    randomize;         //без этого оператора каждый раз будут генерироваться одинаковые числа
    for i:=1 to 12 do    //цикл для создания массива
    begin   //начало операторских скобок
      a[i]:= random(7);          //формирование значений элементов массива
      listbox1.Items.Add('i =  '+ inttostr(i) +  '     a[' + inttostr(i) + ']= ' + inttostr(a[i]));                         //вывод элемента массива  в текстовое поле listbox1
    end;    //конец операторских скобок

    for i:=1 to 12 do  {цикл для вывода элементов преобразованного
                          массива в текстовое поле memo1 }
      if  a[i]<> 6 then  {проверка условия отбора очередного элемента массива и если a[i] не равен 6,
                        то выполнить вывод элемента массива  в текстовое поле   memo1}
      memo1.lines.Add('i = '+ inttostr(i) + #9 +'a[' + inttostr(i) + ']= ' + inttostr(a[i]));

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    memo1.Clear;
    listbox1.Clear;
end;                        
 

Вариант 1   Интерфейс проекта

Итог:  

Программный код

var
  Form1: TForm1;
    var i, n,k:integer;  a:array[1..100] of integer;  //объявление глобальных переменных 

procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(edit1.text);
  randomize;
  listbox1.Clear;
  for i:=1 to n do
  begin
    a[i] := random(n) + 1;
    listbox1.Items.Add('a[' + inttostr(i) + ']= ' + inttostr(a[i]));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  k := 0;
   for i:=1 to n do  if (a[i] mod 2 = 0) and (i mod 2 =0) then k:=k +1;
   edit2.Text :=  inttostr(k);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   listbox1.Clear;   edit2.Text := '';   edit1.Text := '';
end; 

Интерфейс проекта

итог:

Вариант 2
Программный код (изменение  в процедуре procedure TForm1. Button2Click(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);
begin
  k := 0;
    for i:=1 to n do  if (a[i] mod 2 = 0) and (i mod 2 =0) then  {проверка условия отбора - определить количество четных чисел, которые имеют парные индексы.}
           begin
         k:=k +1;
         listbox2.Items.Add('a[' + inttostr(i) + ']= ' + inttostr(a[i]));
          end;
   edit2.Text :=  inttostr(k);
end;

procedure TForm1.Button3Click(Sender: TObject); (изменение  в процедуре  procedure TForm1.Button3Click(Sender: TObject)
begin
   listbox2.Clear;   listbox1.Clear;   edit2.Text := '';   edit1.Text := '';
end; 

procedure TForm1.Button1Click(Sender: TObject);
    var a: array[1..10] of integer; i, k, n  :integer;
begin
  Randomize;
 n:=0;
 for i:= 1 to 10 do
     begin
     a[i]:= random(20); // формирование элементов массива
     memo1.Lines[i-1]:= '' + inttostr(a[i]);   {очередной элемент массива переводить в текст и записывать следующей строкой  поля memo1 }
     end;
 k:= strtoint(inputbox('поиск одинаковых чисел', 'введите искомое число' ,''));
 for i:= 1 to 10 do   if a[i] = k then   n:= n + 1 ;
 label1.caption:= 'количество искомых чисел = ' + inttostr(n);
end;

Для реализации рационального метода решения этой задачи используем переменную логического типа f и пусть ее значение:

•  false означать, что заданного числа среди значений элементов табличной величины нет
• true означать, что заданное число среди значений элементов табличной величины есть

Перед началом просмотра значений элементов табличной величины присвоим переменной f значение false, ведь заданное число в табличной величине пока не нашлось.

Сравниваем в цикле последовательно значения элементов табличной величины с заданным числом, и если один из них равен заданному числу, то изменим значение переменной f на true и прервем выполнение цикла командой break (англ. Break - прерывать).

Вывод реализуем в зависимости от значения переменной f.

Программный код проекта

procedure TForm1.Button1Click(Sender: TObject);
    var a: array[1..10] of real; i,z :integer;  f:boolean; k:real; {k -искомое число, z-для запоминания индекса первого найденного элемента массива, удовлетворяющего условию поиска, f - значение false будет означать,
 что искомое число в массиве еще не найдено а значение true - заданное число есть среди элементов массива  }

begin
 Randomize;
 for i:= 1 to 10 do
     begin
     a[i]:= random(20)+ 2.5;
     memo1.Lines[i-1]:= 'i = '+ inttostr(i) + #9 + 'a[' + inttostr(i) + ']= ' + floattostr(a[i]);   { вывод индексов и значений элементов массива из соответствующих участков оперативной памяти  в  строки многострочного текстового поля преобразовывая числовые данные в текствый тип}
     end;
 f:=false;  //искомое число в массиве еще не найдено
k:= strtofloat(inputbox('поиск первого из искомых', 'введите искомое число, разделительный знак - запятая ',''));

 for i:= 1 to 10 do  //в цикле  последовательно сравниваем значение элементов массива с искомым числом
     if a[i] = k then    {если значение очередного элемента равно искомому
меняем значение переменной f на true и прерываем выполнение цикла}
            begin
           f:=true;  // заданное число есть среди элементов массива
           z:= i; // запоминаем индекс найденного элемента массива
          break; //выходим из цикла
          end;
  if f=true then   //вывод результата поиска реализуем в зависимости от значения переменной  f
         label1.caption:= 'такое число есть  индекс элемента =  ' + inttostr(z)
            else
       label1.caption:= 'такого  числа нет';
end;

Итоги