Question

Program în pascal: Se dă un vector cu n componente întregi (n < și = 100), să se determine elementul maximal și elementul minimal.
Vă rog plsss! Am nevoie extrem de repede!

Answer 1

Răspuns:

var  

  a:array[1..100] of integer;

  n,i,max,min,f:integer;

begin

  readln(n);

  min:=a[1];

  max:=a[1];

  for i:=1 to 5 do begin

  readln(a[i]);

  end;

  for i:=1 to 5 do begin

  if a[i]<min then min:=a[i];

  if a[i]>max then max:=a[i]; end;

  write('max este=',max,' min este=',min);

end.

Suma max si min:

var

 a : array [1..4] of real;

 i : integer;

 min, max : real;

begin

writeln('Elementele matricei: ');

for i := 1 to 4 do

 begin

 write('Citeste A[', i, '] = ');

 readln(A[i]);

 end;

max := A[1]; min := A[1];

for i := 1 to 4 do

 begin

 if min > A[i] then min := A[i];

 if max < A[i] then max := A[i];

 end;

writeln;  

writeln('Raspunsul: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3);  

end.