Массив и его номер

@Динамо · Регистрация: 30.06.2010

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

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

@Inadequate · 30.06.2010, 13:32

Pascal

max := 1;
for i := 2 to N do
  if a[i] > a[max] then
    max := i;

@id1 · 30.06.2010, 13:34

как-то так

Pascal

program _;
var
a:array[1..100] of integer;
i,j,max,n:integer;
begin
writeln('êîëè÷åñòâî ýëåìåíòîâ ìàññèâà'); readln(n);
writeln('ýëåìåíòû ìàññèâà:');
for i:=1 to n do
begin
readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
begin
if a[i]>=max then begin max:=a[i]; j:=i; end;
end;
writeln('Ìàêñèìàëüíûé ýëåìåíò ',max,'  íîìåð ',j);
end.

@кот Бегемот · 30.06.2010, 14:43

Динамо, ты бы сначало важное вверху прочёл, там половина твоих задач уже решена

@Динамо · 30.06.2010, 14:44 **[ТС]**

Ок, посмотрю)

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

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	30.06.2010, 14:43	4
	Динамо, ты бы сначало важное вверху прочёл, там половина твоих задач уже решена 0

@Динамо 0 / 0 / 0 Регистрация: 30.06.2010 Сообщений: 12
	30.06.2010, 14:44 [ТС]	5
	Ок, посмотрю) 0