Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. и найти минимальный элемент массива и его индекс.
182
284
Ответы на вопрос:
Var a: array [1..15] of integer; i, min, index: integer; begin min: =a[1]; for i: =1 to 15 do begin a[i]: =random(41)-20; write (a[i], ' '); end; writeln; for i: =1 to 15 do begin if min> a[i] then begin min: =a[i]; index: =i; end; end; writeln('минимальный элемент массива = ',min); writeln('его индекс = ',index); end.
Program massiv; var mass: array[1..15] of integer; i,j,a: integer; begin j: =mass[1]; for i: =1 to 15 do begin mass[i]: =random(40)-20; writeln(mass[i]: 3); if mass[i]< j then begin j: =mass[i]; a: =i; end; end; writeln('mass[',a,']=',j); end.
Популярно: Информатика
-
vladka040531.07.2022 17:59
-
Nikita8227907.02.2021 13:10
-
neznayka190006.05.2021 11:49
-
Настя5525108.04.2020 11:35
-
artemmavericksmesrri12.08.2021 01:43
-
shlykhta9527.08.2021 12:26
-
Halula26.06.2020 07:25
-
иаешшвеэщк26.05.2022 03:21
-
dimatripolskiy17.04.2020 19:29
-
Валерия336516.03.2021 21:17