Определить номер последнего максимального числа в одномерном массиве

@VladimiRez · Регистрация: 19.06.2012

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

Народ-помогите кто-чем может!Проволялся со сломанной ногой в больничке-пропустил массивы(часть).

До завтра сможете решить?Вот:
"Напишите программы(каждая отдельно):

-определяющую номер последнего максимального числа в одномерном массиве

Буду по гроб жизни должен!

@CodeR · 19.06.2012, 19:27

Pascal

Var i,max,imax,n:integer;
    A:array[1..100] of integer;
Begin
    write('Введите размерность: ');readln(n);
    A[1]:=random(11)-5;write(A[1]:3);max:=A[1];imax:=1;
    For i:=2 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
      if A[i]>=max then
       Begin 
        max:=A[i];
        imax:=i;
       End;
     End;
    writeln;
    writeln('Номер последнего max элемента в массиве ',imax,' а max элемент ',max);
    readln;
End.

@VladimiRez 0 / 0 / 0 Регистрация: 19.06.2012 Сообщений: 8
		1
	Определить номер последнего максимального числа в одномерном массиве 19.06.2012, 18:48. Показов 1185. Ответов 1 Метки нет (Все метки) Народ-помогите кто-чем может!Проволялся со сломанной ногой в больничке-пропустил массивы(часть). До завтра сможете решить?Вот: "Напишите программы(каждая отдельно): -определяющую номер последнего максимального числа в одномерном массиве Буду по гроб жизни должен! 0

	19.06.2012, 19:27

Определить номер последнего максимального числа в одномерном массиве

Решение