Răspuns :
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:
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!