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

Question

Информатика

Максюша

10 сентября, 04:17

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

+4

Ответы (1)

Знаете ответ на вопрос?

Паллада · Answer 1

Var

m: array [1 ... 10] of integer;

max, k, i: integer;

begin

for i : = 1 to 10 do

read (m[i]) ;

max : = m[1];

k : = 1;

for i : = 2 to 10 do

if m[i] > max then

begin

k : = 1;

max : = m[i]

end

else

if m[i] = max then

inc (k) ;

write (k)

end.