Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
CherryGirll
17.04.2020 06:33 •
Информатика
Написать программу вычисления наименьшего элемента массива.
Показать ответ
Ответ:
PechenkO629
15.09.2020 14:25
Program go;
type lol=array[1..100] of integer;
var t:lol;
i,n,min:integer;
begin
readln(n);
for i:=1 to n do
readln(t[i]);
min:=99999;
for i:=1 to n do
if(min>t[i]) then min:=t[i];
writeln('минимальное чисо ', min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Тимофей17727
20.06.2021 07:29
Что относится к системам программирования?...
sasha524856
15.02.2021 22:57
1) Откройте файл «Студент». 2) Скопируйте таблицу на Лист 2. 3) После названия таблицы добавьте пустую строку. Введите в ячейку В2 Проходной , в ячейку С2 число 13. Условие зачисления...
анабель125
29.10.2021 10:35
Чому вважається, що програми, написані на компільованих мовах, працюють повільніше ніж написані на інтерпретованих?...
198565
05.03.2020 10:34
Спробуйте намалювати відрізок одразу післявідкриття GIMP. Чому редактор не реагує наваші дії?...
СерёгаД
08.03.2020 17:34
Составить программу «календарь xx столетия» , которая определяет день недели любого дня xx-го столетия. по введенному значению 1, 2, 3 вычисляет 1.номер дня недели по формуле, где...
MrDrozdik
07.12.2021 23:33
Что выведет на экран команда writeln (copy (‘москва’+’самара’, 4,...
seryogasaprikin
07.12.2021 23:33
10 класс информатика ! определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 18: var i, k: integer; function f(x: integer): integer;...
matuezh
11.06.2020 14:22
Определите что будет напечатано в результате работы следующей программы алг prim_1_3 нач цел х у z x: =10 y: =47 z: =24 x =mod(x+y,26) z: =mod(z+x,10) вывод z кон паскаль program...
gptisveto
19.05.2021 15:15
написать реферат на тему «информационные процессы»...
anastasiab200
28.07.2022 13:44
Решить через visual basic excel...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
type lol=array[1..100] of integer;
var t:lol;
i,n,min:integer;
begin
readln(n);
for i:=1 to n do
readln(t[i]);
min:=99999;
for i:=1 to n do
if(min>t[i]) then min:=t[i];
writeln('минимальное чисо ', min);
end.