Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального элемента вещественного массива

@Sprayt · Регистрация: 13.06.2013

Author24 — интернет-сервис помощи студентам

Нужна помощь в решении задачи.
Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального элемента вещественного массива A размера N. Выходные параметры целого типа: NMin (номер минимального элемента) и NMax (номер максимального элемента). С помощью этой процедуры найти номера минимальных и максимальных элементов массивов A, B, C размера NA, NB, NC соответственно.
Заранее спасибо.

@CodeR · 17.09.2013, 12:02

Pascal

Type mas=array[1..100] of real;
Var A,B,C:mas;
    na,nb,nc,nmin,nmax:byte;
Procedure InOut(Var A:mas;n:byte);
Var i:byte;
Begin
    For i:=1 to n do
    Begin
      A[i]:=random*10-5;
      write(A[i]:6:2);
    End;
    writeln;
End;
Procedure MinmaxNum(A:mas;N:byte;Var NMin,NMax:byte);
Var i:byte;
Begin
    nmin:=1;nmax:=1;
    For i:=2 to n do
     if A[i]>A[nmax] then nmax:=i
      else if A[i]<A[nmin] then nmin:=i;
End;
Begin
    write('na = ');readln(na);
    InOut(A,na);
    MinmaxNum(A,na,nmin,nmax);
    writeln('Nmin = ',nmin,' Nmax = ',nmax);
    write('nb = ');readln(nb);
    InOut(B,nb);
    MinmaxNum(B,nb,nmin,nmax);
    writeln('Nmin = ',nmin,' Nmax = ',nmax);
    write('nc = ');readln(nc);
    InOut(C,nc);
    MinmaxNum(C,nc,nmin,nmax);
    writeln('Nmin = ',nmin,' Nmax = ',nmax);
    readln;
End.

@Puporev · 17.09.2013, 12:04

Поправьте

Сообщение от Sprayt

вещественного массива

а то если ТС поймет, то рев будет...

@polinaagodka · 22.06.2021, 19:37

Почему 2 процедуры?

@Puporev · 22.06.2021, 19:45

Ну, уберите процедуру ввода массива.

@Sprayt 0 / 0 / 0 Регистрация: 13.06.2013 Сообщений: 11
		1
	Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального элемента вещественного массива 17.09.2013, 11:21. Показов 3163. Ответов 4 Метки нет (Все метки) Нужна помощь в решении задачи. Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального элемента вещественного массива A размера N. Выходные параметры целого типа: NMin (номер минимального элемента) и NMax (номер максимального элемента). С помощью этой процедуры найти номера минимальных и максимальных элементов массивов A, B, C размера NA, NB, NC соответственно. Заранее спасибо. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.09.2013, 12:04	3
	Поправьте Сообщение от Sprayt вещественного массива а то если ТС поймет, то рев будет... 2

@polinaagodka 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 20
	22.06.2021, 19:37	4
	Почему 2 процедуры? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.06.2021, 19:45	5
	Ну, уберите процедуру ввода массива. 0

Опции темы

Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального элемента вещественного массива

Решение