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

(Паскаль)

Question

Информатика

Риммира

9 июня, 14:17

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

(Паскаль)

+1

Ответы (1)

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

Сейдж · 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.

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

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

(Паскаль)