Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dimonbob2005
23.10.2021 06:48 •
Информатика
Написать программу (и желательно блок схему) для : ввести 10 чисел, и вывести на экран наименьшее.
Показать ответ
Ответ:
bitvazat
05.07.2020 12:03
A:array[1..10] of integer;
i, min:integer;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olesjaozs5is
26.06.2020 07:39
Даны строка s и символ b.написать программу, которая удваивает каждое вхождение символа b в строку s желательно написать на python или pascal !...
2x2466
13.09.2020 06:17
Сколько символов можно закодировать с 2 байтов...
daqqwe
01.04.2022 20:25
По введенному номеру месяца вывести название времени года (зима, весна, лето, осень). Если номер месяца введен некорректно, то вывести сообщение Вы ввели некорректные данные Sample...
ирина1629
03.05.2020 07:39
Составить программу используя функции по варианту: Найти количество чисел кратных 2 на промежутке от -8 до 11 Язык С++...
Meri1314
06.01.2021 11:57
Задан целочисленный массив из 10 элементов.опеделить, идут ли элементы массива в порядке возрастания.конецОпределить, есть ли в массиве последовательность из Nповторяющихся элементов,...
skZ1
07.02.2020 19:47
Питон:Маша делает рекламный постер о выходе нового видео на канале. На постере она хочет написать, что видео выходит через N дней. Каждый день постер будет обновляться, выведите на...
2005NeZnayka2005
16.01.2020 02:17
. Выпиши из текста выделенные предложения. Подчеркни главные члены предложения. Определи падеж имён существительных.. Расскажи о роли имён существительных в предложении.R73...
multikonlive
16.01.2020 02:17
Из заданных чисел выбери те, которые показывают, что квадратный корень из рационального числа может быть выражен (запиши число): а) целым числом б) конечной десятичной дробью в) бесконечной...
timoxaept
16.01.2020 02:17
География 6 класс климанова параграф 37 краткий пересказ ...
kabekesov99
16.01.2020 02:17
узбекский язык с узб яз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, min:integer;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.