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.
