Указать позицию первого экстремального элемента

@Wolume82 · Регистрация: 26.08.2009

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

Дан массив вещественных чисел.Указать позицию первого экстремального элемента (т.е. максимального или минимального)

@Puporev · 02.09.2010, 19:58

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,imn,imx,ie:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
imn:=n;imx:=n;
for i:=1 to n do{идем с начала, тогда запомним первый}
if a[i]<a[imn] then imn:=i
else if a[i]>a[imx] then imx:=i;
if imn<imx then ie:=imn else ie:=imx;
write('Первый экстремальный элемент = ',a[ie]:0:2,'  его индекс = ',ie);
readln
end.

Добавлено через 1 час 12 минут
Я строку 21 заменил, что-то перепутал, хотя для вещественных чисел это не очень принципиально.

Pascal

1	for i:=1 to n do{идем с начала, тогда запомним первый}

@Wolume82 0 / 0 / 0 Регистрация: 26.08.2009 Сообщений: 14
		1
	Указать позицию первого экстремального элемента 02.09.2010, 18:35. Показов 1708. Ответов 1 Метки нет (Все метки) Дан массив вещественных чисел.Указать позицию первого экстремального элемента (т.е. максимального или минимального) 0

	02.09.2010, 19:58

Указать позицию первого экстремального элемента

Решение