Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Milania0011
30.06.2021 11:56 •
Информатика
Напишите программу подсчитывающая количество минимальных элементов в заданном массиве
Показать ответ
Ответ:
xag
07.10.2020 10:28
Program glg;
var
a:array[1..10] of integer;
min, kol: integer;
begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end
i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.
Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)
0,0
(0 оценок)
Популярные вопросы: Информатика
Малика20091
17.10.2021 02:12
Какое значение будет присвоено переменной x после завершения программы...
yuliyabondar2
11.08.2020 15:24
Какова функция заголовка в документе для чего используются объекты в Word Как разместить объекты ворд Арт в документе Как вставить рамку в документе Какие типы границ бывают...
Farxadkishi
17.01.2023 20:43
Составить таблицы истинности для следующих логических выражений: 1. F = (X&-Y )vZ 2. F = X&YvZ 3. -(XvY) & (YvX) 4. -((XvY) & (ZvX))&(ZvY)...
viktoria123987650
15.04.2022 16:14
Применяя правило счета, запишите продвижение пяти целых чисел, следующих за указанным. 10 в двоичной 101 в троичной 20 в троичной 15 в шестиричной 11 в пятиричной 11 в...
Дашенька200452
23.11.2021 11:06
Что такое информационные модели? из чего они сделаны ?...
1244ррровг
30.01.2023 00:11
Чем различаются калькулятор от компьютера...
Decabrina6666
16.07.2020 04:53
Паскаль. найти сумму корней квадратных из всех нечетных двузначных чисел...
LyVlAr
19.05.2023 02:36
Текстовыми процессорами являются ms word pspad notepad2 openoffice.org writer...
kristinandrosov
26.02.2022 07:47
Инструкция: Выберите верный ответ (ответы) 1.Деятельность человека, связанную с процессами получения, преобразования и передачи информации называют… 1) исследовательской...
muckanvicktoria
19.01.2020 08:18
Сколько комбинаций можно составить, используя 3 двоичные цифры? 9 32 8 16...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:array[1..10] of integer;
min, kol: integer;
begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end
i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.
Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)