tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите краткий алгоритм нахождения
Напишите краткий алгоритм нахождения минимального элемента в одномерном массиве
ekaterina123sve
3 18.06.2019 13:00
0
Ответы
6996nya
15.07.2020 07:18
Uses
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
Тестовое решение:
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ilyauhdhbtxskr
13.06.2019 06:50
Как называется устройство где программы и данные хранятся и после выключения...
DANA3072005
13.06.2019 06:50
Какие устройства предназначены для вывода информации...
diana1078
13.06.2019 06:50
Напишите оператор присваивания в результате выполнения которого целой s переменной присвоится значение суммы трехзначного целого числа k...
Yandarbieva1
13.06.2019 06:50
Напишите оператор присваивания в результате выполнения которого целой переменной s присвоится значение суммы цифр трёхзначного целого числа k...
dhjejdj
27.04.2020 10:30
Здорова программисты можете написать код ) задание на фотографии...
2008031
27.04.2020 11:13
Дано: алг индекс_0 нач опустить перо сместиться на вектор (−1,0) сместиться на вектор (0,−2) сместиться на вектор (1,0) сместиться на вектор (0,2) поднять перо сместиться...
нур821
27.04.2020 11:13
Редакторлын инструменттер панелі...
Natalasorochynska
27.04.2020 11:14
Перевести число 4710 в системы счисления с основаниями 2, 8, 16Определить значение числа, записанного в 2 системе счисления 110011012Определить значение числа, записанного...
daryaevis
16.02.2022 07:36
Определите функции инструментов и заполните таблицу...
mivliev38p08iax
16.02.2022 07:36
Памагите сор по инфр фото есть...
Популярные вопросы
с физикой хоть с чем то, умоляю...
1
Надо написать какая погода в разных городах по английске...
3
Запишите уравнение реакции, доказывающее что глицерин это многоатомный...
3
Определить массу осадка, полученного при взаимодействии 200г гидроксида...
2
В одном классе есть 16 девочек и 14 мальчиков. Случайным образом...
3
Зробіть кросворд про Україну...
3
какие из представленных благ являются общественными, смешанными...
3
Дано: ABC-равнобедренный угол C=30°угол BAC=30°OO1=√3Найти:1)R-сферы2)VS-сферы....
2
Знайти довжину хвилі коливання,період якого Т=10с. Швидкість росповсюдження...
3
X1=(koh)=x2=(zn,t)= =бутен-1 =x3=бутен-2= x4=метилпропан=x5=ацетонx2=(zn,...
3
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
Тестовое решение:
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14