Найти максимальный элемент и его номер в массиве целых чисел Z=(z1,z2,z3,K,zn), n<=10

@dmitriyzryuev · Регистрация: 23.04.2011

Найти максимальный элемент и его номер в массиве целых чисел Z=(z1,z2,z3,K,zn), n<=10 , и упорядочить элементы массива по возрастанию.

@versa4e · 20.05.2011, 10:25

Pascal

const
  nmax=10;
var
  r:array[1..nmax]of integer;
  i,maxi,z,n,tmp:integer;
begin
  repeat
    write('Razmer->');
    readln(n);
  until n in [1..nmax];
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      r[i]:=-10+random(21);
      write(r[i]:4);
    end;
  maxi:=1;
  for i:=2 to n do
    if r[maxi]<r[i] then
      maxi:=i;
  writeln;
  writeln('Max. element-> ',r[maxi],' Ego index-> [',maxi,']');
  for i:=1 to n-1 do
    for z:=i+1 to n do
      if r[z]<r[i] then
        begin
          tmp:=r[i];
          r[i]:=r[z];
          r[z]:=tmp;
        end;
  writeln('Uporyad. massiv:');
  for i:=1 to n do
    write(r[i]:4);
  readln;
end.

@dmitriyzryuev 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 5
		1
	Найти максимальный элемент и его номер в массиве целых чисел Z=(z1,z2,z3,K,zn), n<=10 19.05.2011, 20:22. Показов 1769. Ответов 1 Метки нет (Все метки) Найти максимальный элемент и его номер в массиве целых чисел Z=(z1,z2,z3,K,zn), n<=10 , и упорядочить элементы массива по возрастанию. 0

Опции темы

Найти максимальный элемент и его номер в массиве целых чисел Z=(z1,z2,z3,K,zn), n<=10

Решение