Найти наибольший элемент массива и его порядковый номер

@DarkFenikS · Регистрация: 28.03.2011

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

Исправте эту программу так, что бы она выводила кроме наибольшего числа массива ещё и его порядковый номер, а также что бы не надо было вводить числа массива в ручную, а были стандартно такие числа (1;-2;-3;0;5;2;8;1;4;7;3;-1) в таком порядке. Зарание спасибо!
P.S. : эта прогамма нужно срочно и сегодня!!!!

Pascal

program maxelem;
uses Crt;
var A: array[1..12] of integer;
    i,c: integer;
    max: integer;
begin
     ClrScr;
     FOR i:=1 to 12 do
     begin
          WriteLn ('Введи число номер ', i);
          ReadLn (A[i]);
     end;
      FOR i:=1 to 12 do
     begin
          Write (i);
          Write (' ');
     end;
     max:=A[i];
     FOR i:=1 to 12-1 do
         begin
              IF A[i+1] > max then max:=A[i+1];
         end;
         c:=a[i+1];
     WriteLn ('Максимальное число равно ', max);
     end.

@rangerx · 30.03.2011, 12:32

Pascal

program maxelem;
 
uses
  Crt;
 
const
  N = 12;
  a: array[1..N] of integer = (1,-2,-3,0,5,2,8,1,4,7,3,-1);
 
var
  i, imax: integer;
 
begin
  ClrScr;
 
  for i:= 1 to N do
    Write(a[i], ' ');
 
  imax:= 1;
  for i:= 2 to N do
    if a[i] > a[imax] then imax:= i;
 
  WriteLn;
  WriteLn ('Максимальное число равно a[', imax, '] -> ', a[imax]);
  ReadLn;
end.

Опции темы