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

@Rinse · Регистрация: 05.11.2012

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

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

Pascal

Program Kovtun_laba3_1;
uses crt;
var
   x,y,z,i,n,max,min,imax:integer;
begin
     clrscr;
     writeln('Vvedite kolichestvo');
     readln(n);
     writeln('Vvedite element');
     readln(n);
     max:=x;
     imax:=1;
     for i:=1 to n do
         begin
              writeln('Vvedite celoe chislo');
              readln(x);
              if(max>x)
                       then
                       begin
                            max:=x;
                            imax:=i;
                       end;
         end;
     writeln('Nomer znacheniya imax=', imax);
     readln;
end.

Результат: получается бред какой-то

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

Ещё хотел бы добавить, что программу надо выполнить в форме циклической структуры с параметром, а так же с постусловием и предусловием.... Хотя бы с параметром помогите разобраться...

@КонецСвета · 11.11.2012, 16:32

Rinse, да у вас почти все правильно, только
1) вместо первого элемента вы снова считываете n, в итого меняется число элементов последовательности, а максимальный элемент остается нулевым
2) поскольку первое число последовательности вы вводите за циклом, то цикл следует продолжать со второго элемента for i:=2..
3) поскольку вы ищете элемент, больший max, то условие следует поменять на обратное x>max

если вдруг не получится самостоятельно исправить =)

Pascal

uses crt;
var x,i,n,max,imax:integer;
begin
clrscr;
write('Vvedite kolichestvo: '); readln(n);
writeln('Vvedite element');
readln(x);
max:=x; imax:=1;
for i:=2 to n do
    begin
    writeln('Vvedite element');
    readln(x);
    if x>max then
       begin
       max:=x;
       imax:=i;
       end;
    end;
writeln('Nomer znacheniya imax=', imax);
readln;
end.

@Rinse · 11.11.2012, 17:16 **[ТС]**

КонецСвета, Спасибо

Слушай, а если сделать так же как ты написал, только вместо первого x взять a???

Pascal

uses crt;
var 
a,x,i,n,max,imax:integer;
begin
clrscr;
write('Vvedite kolichestvo: '); 
readln(n);
writeln('Vvedite element');
readln(a);
max:=x; 
imax:=1;
for i:=2 to n do
    begin
    writeln('Vvedite element');
    readln(x);
    if x>max then
       begin
       max:=x;
       imax:=i;
       end;
    end;
writeln('Nomer znacheniya imax=', imax);
readln;
end.

Добавлено через 12 минут
Всё, я понял в чем смысл программы

Спасибо огромное

/close

	11.11.2012, 17:16