Найти максимальный элемент массива и его порядковый номер

@Den4ik0021 · Регистрация: 21.10.2014

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

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

@Константин_2012 · 22.10.2014, 14:23

Den4ik0021,

Pascal

program mas2;
uses crt;
     const nmax=100;
type tmas=array[1..nmax] of integer;
var
   mas: ^tmas;
   n,i,x,count: integer;
begin
   clrscr;
   write('Ââåäèòå ðàçìåð ìàññèâà äî ',nmax,': ');
   readln(n);
   x:=0;
   new(mas);
   randomize;
   writeln('Ìàññèâ:');
   for i:=1 to n do
   begin
       mas^[i]:=random(99);
       write(mas^[i]:3,' ');
   end;
   for i:=1 to n do
       if x<mas^[i] then
       begin
          x:=mas^[i];
          count:=i;
       end;
   writeln;
   writeln('Ìàêñèìàëüíûé ýëåìåíò: ',x:3,' åãî èíäåêñ: ',count:2);
   dispose(mas);
end.

@Den4ik0021 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 13
		1
	Найти максимальный элемент массива и его порядковый номер 21.10.2014, 12:01. Показов 2210. Ответов 1 Метки нет (Все метки) Дан массив целых чисел. Найти максимальный элемент массива и его порядковый номер 0

	22.10.2014, 14:23