Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента - Pascal ABC

  1. Есть задача "Дан массив целых чисел a : array[1..20] of integer – напишите функцию возвращающую номер минимального элемента" С функциями у меня проблема дикая, по самоучителям и другой инфе в интернете накатал программу( ниже она есть), но не пойму как сделать что бы вывод минимального номера был не в функции


textual

Код к задаче: «Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента - Pascal ABC»

program ex;
uses crt;
const N=20;
type vector=array[1..n]of integer;
var a:vector;
    i,m:integer;
 
function minimum(a:vector; m:integer):integer;
var i,min,nomer:integer;
begin
min:=a[1];
nomer:=1;
for i:=1 to m do
if (a[i]<min)then
   begin
   min:=a[i];
   nomer:=i;
   end;
minimum:=nomer;
end;
 
begin
write('введите количество элементов массива: ');readln(m);
for i:=1 to m do
begin write('введите элемент: ');readln(a[i]);end;
write('массив: ');
for i:=1 to m do
write(a[i],' ');
writeln();
write('номер минимального элемента: ',minimum(a,m));
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5



Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Помогите исправить ошибку . Задание :Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится минимальный элемент.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). В первом массиве осуществить циклический сдвиг вправо на a позиций, во втором на b, в третьем на c. Нужно сделать через процедуры Заранее благодарю

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. Нужно написать прогу плиз) Буду благодарен)) Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) встречается ли более од¬ного раза максимальное из чисел в заданной матрице.