Задание:
Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. И найти минимальный элемент массива и егоиндекс.
Решение:
Program massiv; var mass: array[1… 15] of integer; i,j,a: integer; beginj: =mass[1]; for i: =1 to 15 do beginmass[i]: =random (40) -20; writeln (mass[i]: 3); if mass[i]