Question

Elaborați un program PASCAL care citește de la tastatură 4 numere întregi și afișează la ecran suma dintre cel mai mare și cel mai mic număr întreg citit

Answer 1

program sumaMinMax;

var a, b, c, d, min4, max4: integer;

begin

 write(' introdu 4 numere intregi: '); read(a,b,c,d);

 if (a<b) then begin min4:=a; max4:=b; end

 else begin min4:=b; max4:=a; end;

 if (min4>c) then min4:=c;

 if (max4<c) then max4:=c;

 if (min4>d) then min4:=d;

 if (max4<d) then max4:=d;

 writeln('minim + maxim = ', min4+max4);

end.

Answer 2

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.