Question

DAU 50 PUNCTE!!! Se considera urmatoarele declaratii:
const nmax=100;
type Vector=array[1..nmax] f real;
Elaborati o functie care calculeaza:
a)componenta maxima
b)componenta minima

Answer 1

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: