Дано 30 чисел Найти максимальное и минимальное число среди введенных и их порядковый номер

@Viktor65 · Регистрация: 13.04.2016

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

Дано 30 чисел. Найти максимальное и минимальное число среди введенных и их порядковый номер.
Delphi 7

@Nehemian · 14.04.2016, 18:27

Delphi

var
Ar:array [0..29] of integer;
max,min,i,Imin,Imax:integer;
begin
for i:=0 to 29 do
   begin
      Ar[i]:=Random(40)-20;
      write(Ar[i]);
   end;
readln();
 
min:=Ar[0];
max:=Ar[0];
 
for i:=0 to 29 do
  begin
    if Ar[i]<min then  begin min:=Ar[i]; Imin:=i+1; end;
    if Ar[i]>max then begin max:=Ar[i]; Imax:=i+1; end;
  end;
 
writeln('Min = ' + min + ' index =   ' + Imin);
writeln('Max = ' +max + ' index =   ' + Imax);
readln;
end.

@AHBAR · 15.04.2016, 08:26

Nehemian, если минимальных/максимальных чисел несколько будет ? тогда этот код узнает порядковый номер последнего минимального/максимального

@Nehemian · 15.04.2016, 11:45

да.

@Viktor65 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 9
		1
	Дано 30 чисел Найти максимальное и минимальное число среди введенных и их порядковый номер 14.04.2016, 15:38. Показов 1678. Ответов 3 Метки нет (Все метки) Дано 30 чисел. Найти максимальное и минимальное число среди введенных и их порядковый номер. Delphi 7 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,140
	15.04.2016, 08:26	3
	Nehemian, если минимальных/максимальных чисел несколько будет ? тогда этот код узнает порядковый номер последнего минимального/максимального 0

@Nehemian 15 / 15 / 4 Регистрация: 27.12.2009 Сообщений: 93
	15.04.2016, 11:45	4
	да. 0

Опции темы