урок 7 октября. поиск элементов с заданными свойствами

  1Задан  одномерный массив  из  5  чисел.  Определить,  есть ли  в  нем    элемент,  равный 3 

var a:array[1..5] of integer; n,S,P,i:integer;
 begin
 writeln ('введите элементы');
 for  i:= 1 to 5 do   read(a[i]);

for  i:= 1 to 5 do   if a[i] = 3 then  writeln('есть элемент равный 3');

end.

2 Задан  одномерный массив  из  5  чисел.  Определить, сколько элементов равных 3

var a:array[1..5] of integer; n,S,P,i:integer;

 begin

 writeln('введите элементы');

 for  i:= 1 to 5 do   read(a[i]);

 for  i:= 1 to 5 do  if a[i] = 3 then  n:= n +1 ;

  writeln('есть 3 в количествке 1',n);

end.

 3 Выучить данную задачу

Задан  одномерный массив  из  5  чисел.  Определить,  есть ли  в  нем    элемент,  равный x (значение x вводится с клавиатуры)

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

 begin

 writeln('введите x');  read(x);

writeln('введите элементы массива');

 for  i:= 1 to 5 do   read(a[i]);

 for  i:= 1 to 5 do  if a[i] = x then  n:= n +1 ;

  writeln('есть ',x , ' в количествке ', n);

end.