Question

ajutor cum se face programul? ​

Answer 1

Putin l-am complicat:

var

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

 i, mx, mn : integer;

begin

 mx := -32768;

 mn := 32767;

 for i := 1 to 4 do

 begin

   write('introduce ', i, ' numar: ');

   readln(a[i]);

   if a[i] >= mx then mx := a[i];

   if a[i] <= mn then mn := a[i]

 end;

 writeln('maximum: ', mx);

 writeln('minimum: ', mn);

 writeln('diferenta: ', mx-mn);

 readln

end.