Задача в паскале

[opskaka1]

Массив состоит из десяти целых чисел.Определить,сколько из этих чисел принимают наименьшее значение.

ну как я поняла) Мы вводим массив из 10 чисел, потом вводим Число - которое будет выполнять функцию наименьшего значения. Потом все это дело забиваем в цикл, ставим счетчик и через поэлементное сравнение начинаем сравнивать элементы. Если число из массива = наименьшему, то счетчик +1. то получилось так
Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0;
Writeln ('Введите наименьшее значение!');
readln (x);
Writeln ('Введите массив:');
for i:=1 to 10 do
begin write ('[',i,']='); readln (mas);
if mas = x then
n:=n+1; end;
write ('Вот введеный вами массив -');
for i:=1 to 10 do begin write ('');
write (mas:3,' '); end; writeln;
writeln('_________________________________________ _____________');
Writeln ('количество элементов = ',n);
end.

или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?

[Колядин Максим]

или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?

Да, исходя из условия нужно найти наименьшее из элементов и подсчитать сколько таковых в массиве.