Răspuns:
program min_max;
const
nmax=100;
type
vector=array[1..100] of real;
var
v:vector;
i,n:integer;
maxim, minim:real;
begin
write('Dati lungimea vectorului: ');
readln(n);
for i:=1 to n do
readln(v[i]);
maxim:=v[1];
minim:=v[1];
for i:=2 to n do
begin
if maxim < v[i] then
maxim:=v[i];
if minim > v[i] then
minim:=v[i];
end;
writeln('Elementul maxim din vector este : ',maxim:15:2);
writeln('Elementul minim din vector este : ',minim:15:2);
readln;
end.
Explicație:
