Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{sa se det primele doua maxime dintre vectori de nr intregi}
uses crt; var a:array[1..100] of integer; i,max1,max2,n:integer; begin write('numarul de elemente:');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); end; for i:=1 to n do writeln(a[i],' '); writeln; max1:=a[i]; for i:=2 to n do if a[i]>max1 then begin max2:=max1; max1:=a[i]; end else if a[i]>max2 then max2:=a[i]; writeln('primul maxim este:',max1); writeln('al doilea maxim este:',max2); readln end.
_______________________________________ House Music Set`s Me Free!
|
|