Дан массив из 10 чисел. Определите, сколько элементов этого массива имеют минимальное...

Question

Дан массив из 10 чисел. Определите, сколько элементов этого массива имеют минимальное значение.(Паскаль)

Answer 1

Если одномерный массив, то:

program min;

var a:array[1..10] of integer;

i,min,k:integer;

begin

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

for i:=1 to 10 do

readln(a[i]);

min:=a{1];

for i:=1 to 10 do

if a{i]

then min:=a{i};

for i:=1 to 10 do

if a{i]=min

then k:=k+1;

writeln('Всего элементов с минимальным значением =',k);

end.