Vettori

[pakylory]

Salve,
Ho, in pascal, un vettore bidimensionale somma1[i,1] con 1<=i<=100
In una procedura, ora, dovrei cercare il valore più grande e quello immediatamente successivo (il secondo) contenuto in somma1[i,1]!!!!
Qualcuno sa aiutarmi??? Non so come fare!!!
Grazie

[pakylory]

Io da ieri sto

[Michele Facchin]

Spiega meglio il problema che non ho capito

[m@ximo]

Vedi se questo programmino va bene:

program massimo;
uses crt;

type matrice = array[1..100,1..1] of integer;

var n,i:integer;
    m:matrice;

procedure massimo(v:matrice; k:integer);
var max,max1,i:integer;
begin
  max:=v[1,1];
  max:=0;
  for i:=2 to k do
  begin
    if v[i,1] > max then
    begin
      max1:=max;
      max:=v[i,1];
    end
    else
    begin
      if v[i,1] > max1 then
        max1:=v[i,1];
    end;
  end;
  writeln;
  write('L''elemento pi— grande Š: ',max);
  writeln;
  write('Quello successivo Š: ',max1);
end;

begin
  repeat
    clrscr;
    write('Inserisci la cardinalit… del vettore: ');
    readln(n);
  until (n > 1) or (n < 100);
  writeln('Inseriamo gli elementi nel vettore: ');
  for i:=1 to n do
  begin
    write('Inserisci elemento ',i,': ');
    readln(m[i,1]);
  end;
  massimo(m,n);
  readln;
end.

Spero che sia questa la soluzione al tuo problema, facci sapere

Max

[pakylory]

:metallica :mavieni: :metallica :mavieni:
grazie mille...!!!!