Pascal minim:
var
a,b:integer;
min:integer;
begin
writeln('Introduce-ti doua valori:');
readln(a,b);
if a<b then
min:=a
else
min:=b;
writeln('Minimum dintre a si b= ', min);
end.
Pascal maxim:
var
a,b:integer;
max:integer;
begin
writeln('Introduce-ti doua valori:');
readln(a,b);
if a>b then
max:=a
else
max:=b;
writeln('Maximum dintre a si b= ', max);
end.
Suma dintre max si min din matrice:
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.
