Дан массив из 10 чисел. Обусловьте,сколько элементов массива имеют минимальное

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

Задать свой вопрос
Marija Podgurskaja
меньшее значение необходимо вывести?
Anastasija Galenduhina
ДА
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] gt; max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт