1. Информатика
  2. Составьте программу, которая

Составьте программу, которая в массиве, состоящем из 20 элементов, определяет сколько элементов имеют минимальное значение.

ankka1600 ankka1600    2   24.05.2020 19:26    0

Ответы
danyadope8 danyadope8  15.10.2020 07:45
begin var a := ArrRandom(20, 10, 15); var min:= a.Min; Println('Массив:',a.JoinToString); Println('Количество:',a.Count(x->x=min)); end.

Примечание:

ArrRandom(n, a, b) --- возвращает одномерный массив длиной n, заполненный случайными целыми значениями в диапазоне от a до b.

Пример работы:


Составьте программу, которая в массиве, состоящем из 20 элементов, определяет сколько элементов имею
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kriss200900 kriss200900  20.05.2019 06:40
Составить алгоритм приготовления 5 лепешек за 5 минут (информатика 7 класс, босова) кто знает, киньте! на сковороду помещатся только две. каждая сторона жарится 1 минуту. команды:...
mskamilee mskamilee  05.11.2019 21:59
На python. заданное натуральное число n андрей записал ручкой на листе бумаги, после чего ножницами порезал лист по линиям, которые были оставлены ручкой. в результате лист распался...
koteika282 koteika282  05.11.2019 21:51
Графічне подання відомостей, даних різних видів називають а)модою б)трендом в)медіаною г)інфографікою...
cat73309owz9do cat73309owz9do  28.06.2019 15:50
1)составьте программу, которая выводит на экран таблицу перевода а, а+1,а+ минут в секунды. границы а и б вводятся с клавиатуры. введите границы : 12 18 12 мин = 720 18 мин =1080...
fara30 fara30  28.06.2019 15:50
Преоброзить масив таким образом,что бы елементы,равные нулю,размещались послех всех других...
Aruzhan5555 Aruzhan5555  28.06.2019 15:50
Вставь пропущенные слова. ресурсы локальной сети-это документы и устройства в локальной сети: слова для справки: устройства,программы,сканер,графический планшет....
qwerty882 qwerty882  28.06.2019 15:50
Как изменить порядок изображений в фотоальбоме? как повернуть изображение?...
Simochka123 Simochka123  28.06.2019 16:00
Написать программу. заданы 4 числа. найти среднее арифметическое и среднее этих чисел....
ирина1229 ирина1229  28.06.2019 16:00
Дано n. найти произведение четных чисел этого числа. решить с паскаля. , у меня вышла такая программа: program pr1; var n,p,m: integer; begin write( n= ); readln(n); m: =n; p: =1;...
Mornes Mornes  28.06.2019 16:10
Как переделать презентацию power point 2003 в power point 2007...

Популярные вопросы