var i, n, mini: integer;
a: array [1..100] of integer;
begin
n:=20;
mini:=1;
for i:=1 to n do
begin
a[i]:= random (100);
write (a[i]:4);
if a[i] < a[mini] then mini:=i;
end;
writeln (#10,'Номер минимального элемента массива = ', mini)
end.
Другие языки программирования и технологии
Дан массив из 20 элементов. Найти номер минимального элемента. (Pascal ABC)
69 81 10 75 94 83 99 47 90 91 13 13 84 54 11 84 4 24 43 88
min element = 4 nomer min.elementa = 17
==============
67 20 25 64 47 89 12 40 32 18 95 8 6 89 33 68 28 54 72 68
min element = 6 nomer min.elementa = 13
==============
73 9 60 72 10 72 75 45 63 20 38 59 40 57 46 3 29 53 93 76
min element = 3 nomer min.elementa = 16
==============
34 68 84 26 92 14 11 75 85 44 24 57 6 7 76 91 52 44 59 89
min element = 6 nomer min.elementa = 13
==============
77 36 14 60 50 89 65 3 57 82 61 7 91 73 41 41 98 50 40 74
min element = 3 nomer min.elementa = 8
==============
1 15 46 80 60 67 23 69 59 2 52 7 1 40 79 33 21 2 41 21
min element = 1 nomer min.elementa = 1
==============
57 4 33 83 85 14 43 53 100 21 95 8 32 65 72 78 44 85 61 84
min element = 4 nomer min.elementa = 2
==============
95 3 23 73 63 65 67 76 70 21 90 60 87 91 38 66 45 15 100 9
min element = 3 nomer min.elementa = 2
==============
88 72 1 11 59 75 65 24 32 43 29 59 75 100 23 6 69 36 83 39
min element = 1 nomer min.elementa = 3
==============
14 35 9 22 51 49 16 78 74 32 40 13 75 36 32 51 37 46 41 32
min element = 9 nomer min.elementa = 3
==============
58 99 58 74 16 12 75 82 43 5 7 77 6 100 95 23 65 50 85 59
min element = 5 nomer min.elementa = 10
==============
69 58 31 33 36 90 54 33 54 12 93 24 74 94 45 2 67 57 52 17
min element = 2 nomer min.elementa = 16
==============
88 67 26 2 90 73 96 53 74 27 41 28 49 35 46 51 90 1 7 13
min element = 1 nomer min.elementa = 18
==============
62 46 10 18 62 16 11 99 87 64 31 78 56 58 64 53 35 37 7 15
min element = 7 nomer min.elementa = 19
==============
18 35 97 21 87 63 31 83 28 82 74 80 88 83 57 98 58 20 26 79
min element = 18 nomer min.elementa = 1
==============
6 34 38 7 26 78 12 86 9 99 69 82 41 67 4 95 81 33 64 59
min element = 4 nomer min.elementa = 15
==============
75 44 82 80 18 97 98 27 19 97 17 35 18 51 24 35 82 93 21 100
min element = 17 nomer min.elementa = 11
==============
26 63 31 32 86 49 1 66 79 11 17 40 15 51 79 37 5 68 94 14
min element = 1 nomer min.elementa = 7
==============
3 18 31 63 26 57 24 83 95 85 54 76 92 94 52 32 98 69 68 79
min element = 3 nomer min.elementa = 1
==============
18 58 89 80 22 45 50 58 35 95 59 83 33 10 15 39 21 5 78 26
min element = 5 nomer min.elementa = 18
==============
84 86 50 87 61 83 2 33 38 24 88 77 33 86 83 70 45 5 89 89
min element = 2 nomer min.elementa = 7
==============
58 66 32 11 10 97 4 20 28 27 78 26 45 96 41 53 46 73 92 80
min element = 4 nomer min.elementa = 7
==============
min element = 4 nomer min.elementa = 17
==============
67 20 25 64 47 89 12 40 32 18 95 8 6 89 33 68 28 54 72 68
min element = 6 nomer min.elementa = 13
==============
73 9 60 72 10 72 75 45 63 20 38 59 40 57 46 3 29 53 93 76
min element = 3 nomer min.elementa = 16
==============
34 68 84 26 92 14 11 75 85 44 24 57 6 7 76 91 52 44 59 89
min element = 6 nomer min.elementa = 13
==============
77 36 14 60 50 89 65 3 57 82 61 7 91 73 41 41 98 50 40 74
min element = 3 nomer min.elementa = 8
==============
1 15 46 80 60 67 23 69 59 2 52 7 1 40 79 33 21 2 41 21
min element = 1 nomer min.elementa = 1
==============
57 4 33 83 85 14 43 53 100 21 95 8 32 65 72 78 44 85 61 84
min element = 4 nomer min.elementa = 2
==============
95 3 23 73 63 65 67 76 70 21 90 60 87 91 38 66 45 15 100 9
min element = 3 nomer min.elementa = 2
==============
88 72 1 11 59 75 65 24 32 43 29 59 75 100 23 6 69 36 83 39
min element = 1 nomer min.elementa = 3
==============
14 35 9 22 51 49 16 78 74 32 40 13 75 36 32 51 37 46 41 32
min element = 9 nomer min.elementa = 3
==============
58 99 58 74 16 12 75 82 43 5 7 77 6 100 95 23 65 50 85 59
min element = 5 nomer min.elementa = 10
==============
69 58 31 33 36 90 54 33 54 12 93 24 74 94 45 2 67 57 52 17
min element = 2 nomer min.elementa = 16
==============
88 67 26 2 90 73 96 53 74 27 41 28 49 35 46 51 90 1 7 13
min element = 1 nomer min.elementa = 18
==============
62 46 10 18 62 16 11 99 87 64 31 78 56 58 64 53 35 37 7 15
min element = 7 nomer min.elementa = 19
==============
18 35 97 21 87 63 31 83 28 82 74 80 88 83 57 98 58 20 26 79
min element = 18 nomer min.elementa = 1
==============
6 34 38 7 26 78 12 86 9 99 69 82 41 67 4 95 81 33 64 59
min element = 4 nomer min.elementa = 15
==============
75 44 82 80 18 97 98 27 19 97 17 35 18 51 24 35 82 93 21 100
min element = 17 nomer min.elementa = 11
==============
26 63 31 32 86 49 1 66 79 11 17 40 15 51 79 37 5 68 94 14
min element = 1 nomer min.elementa = 7
==============
3 18 31 63 26 57 24 83 95 85 54 76 92 94 52 32 98 69 68 79
min element = 3 nomer min.elementa = 1
==============
18 58 89 80 22 45 50 58 35 95 59 83 33 10 15 39 21 5 78 26
min element = 5 nomer min.elementa = 18
==============
84 86 50 87 61 83 2 33 38 24 88 77 33 86 83 70 45 5 89 89
min element = 2 nomer min.elementa = 7
==============
58 66 32 11 10 97 4 20 28 27 78 26 45 96 41 53 46 73 92 80
min element = 4 nomer min.elementa = 7
==============
Ага, сейчас буду думать.
Похожие вопросы
- 16. Дан массив из 20 элементов. Найти пять «соседних» элементов, сумма значений которых максимальна. ??
- Дан массив из 20 элементов. Найти три «соседних» элементов, сумма значений которых максимальна. как это на СИ сделать?
- В упорядоченный по возрастанию числовой массив из 20 элементов вставить числа –4 и 7, не нарушая упорядоченности. pascal
- Паскаль.Элементарно,но чё то никак( дан массив.все его элементы разделить на первый элемент.и вывести на экран
- линейный массив из 20 элементов заполнить случайными числами в диапазоне от 0 до 1000 и отсортировать по возрастанию
- Pascal . Дан массив вещественных чисел. Найти сумму элементов, номера которых являются простыми числами
- 1.Заполнить массив случайными числами. Вывести элементы массива на экран. Заменить все его минимальные элементы нулями.
- дан массив целых чисел F1,F2...Fn. распечатать элементы, нах-ся между min и max и их номера. подскажите где я ошибся
- Дан массив размера N. Вывести все двузначные элементы массива и их номера. ПОМОГИТЕ pascal ХЕЛП
- задача в pascale. дан массив. Найти минимальный элемент и отсортировать все элементы стоящие после него.