Дан массив определить сколько раз в массиве встречается миимальныйн элемент Решить в...

Question

Дан массив определить сколько раз в массиве встречается миимальныйн элемент Решить в паскале

Comments

сколько элементов в массиве или количество элементов нужно вводить с клавы?

---

от 1 до 10

---

да

Answer 1

var

a:array[1..100] of integer;

x,i,n,min:integer;

begin

readln(n);

x:=1;

read(a[1]);

min:=a[1];

for I:=2 to n do

begin

read(a[i]);

if a[i]

begin

min:=a[i];

x:=1

end;

if a[i]=min then x:=x+1;

end;

writeln(x)

end.

Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100