Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.
Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.
Гость
Ответ(ы) на вопрос:
Гость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]A[i] then
begin
min:=a[i];
index:=i;
end;
end;
writeln('Минимальный элемент массива = ',min);
writeln('Его индекс = ',index);
end.
Не нашли ответ?
Похожие вопросы