Дан массив К , состоящий из 45 элементов. Элементы массива произвольные целые числа. Определить минимальный элемент массива и его индекс.
irinakotik17
2
09.04.2020 16:50
3
Другие вопросы по теме Информатика
МурррKsKs
28.08.2019 07:10
vladimirkotov71
10.03.2021 12:20
WovenLion1
14.04.2020 12:43
Maria2604love
14.04.2020 12:44
помогите1184
27.10.2020 14:57
Sokol123412343412
27.10.2020 14:57
kirillsysoev2
27.10.2020 14:57
Голес
27.10.2020 14:56
Популярные вопросы
- Вбуфете было 4 сорта пироженых: слоеное, песочное, бисквитное и заворное. сколько...
3 - Сделать схематический чертёж и решил .в банке было 20 консерв.яблок,а слив-на...
3 - Вдвух спортивных секциях занимаются 80 учащихся. в первой секциях занимаются в3...
2 - Расскажите, как отметить точку m(2) на координатном луче...
1 - Впервом вагоне ехало 72 человека а во втором в 2 раза меньше.все пассажиры второго...
1 - Нужна информация о векторах.примеры векторных величин я знаю.мне нужно что- нибудь...
2 - На дорогу от посёлка до города на грузовой машине требуется 48 литр бензина.хватит...
1 - 99 . с : постройте график функции y = |x ² - 2x| если можно то подробно с таблицей,...
3 - Ученики выстроились в ряд по 4 человека .впереди сауле 3 ряда.а позади нее еще...
2 - 1) масса поросенка 26кг,гусь на 21кг легче поросенка,а теленок на 47кг тяжелее...
2
var a, i, min, mini:longint;
arr:Array[1..100] of longint;
begin
for i:=1 to 45 do
read(arr[i]);
min = arr[1];
for i:=1 to 45 do begin
if (arr[i] < min) then
min = arr[i];
mini = i;
end;
writeln(min,' ',min);
end.
Объяснение: