1. найдите количество элементов массива s[7], равных заданному числу b (число b вводится с клавиатуры) 2. найти максимальный и минимальный элементы массива f[13], а так же их номера сделать на паскале 30 ! решите

Var A:array[1..100] of integer;

   i,n,m,k:integer;

Begin

   write('Кол-во элементов массива: ');readln(n);

   For i:=1 to n do

   Begin

     write(i,' элемент = ');

     readln(A[i]);

   End;

   writeln('Введённый массив');

   For i:=1 to n do

    write(A[i]:5);

   writeln;

   write('Заданное число: ');readln(m);

   For i:=1 to n do

    if A[i]>m then inc(k);

   writeln('Элементов >',m,' = ',k);

   readln;

End.

надеюсь правильно, удачи))