Вывести номера максимального элемента массива

@Hurma · Регистрация: 01.10.2012

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

Добрый день.
Где и что надо добавить, что бы выводило НОМЕРА элементов массива, а не только один его номер.

Pascal

program asd;
const n=100;
var mas:array [1..n] of integer;
i,max,nMax:integer;
begin
randomize;
for i:= 1 to n do
begin
mas[i]:=random(25)-10;
writeln (mas[i],' ');
end;
writeln;
max:=mas[1]; nmax:=1;
for i:=1 to n do
if mas[i]>Max then begin Max:=mas[i]; Nmax:=i; end;
writeln(' ìàêñèìàëüíûé ýëåìåíò ',max);
writeln('íîìåðà ðàâíû ',Nmax);
readln;
end.

@CodeR · 01.10.2012, 21:13

Pascal

program asd;
const n=100;
var mas:array [1..n] of integer;
i,max,nMax:integer;
begin
randomize;
for i:= 1 to n do
begin
mas[i]:=random(25)-10;
writeln (mas[i],' ');
end;
writeln;
max:=mas[1]; nmax:=1;
for i:=1 to n do
if mas[i]>Max then begin Max:=mas[i]; Nmax:=i; end;
writeln(' максимальный элемент ',max);
write('номера равны ');
For i:=1 to n do
 if mas[i]=max then write(i:3);
readln;
end.

	01.10.2012, 21:13