Question

Se dă un tablou A[1..n],n<100 de numere reale. Scrieți un program care determină de cîte ori figurează în acest tablou elementul cu valoare minimă și poziția elementului minim.
Acest program trebuie să fie făcut in funcții și în proceduri.

Vă rog frumos

Answer 1

Răspuns:

program minim;

var a: array [1..100] of real;

   n, i, pozitie:integer;

   min: real;

   begin

    write('Dati numarul de elemente al vectorului: ');

    readln(n);

    for i:=1 to n do

    readln(a[i]);

    min := a[1];

    for i:= 2 to n do

    begin

         if min > a[i] then

         begin

            min := a[i];

            pozitie := i;

         end;

    end;

    writeln('Elementul minim este: ',min:15:2);

    writeln('Elementul minim se afla pe pozitia: ',pozitie);

    readln;

end.

Explicație:

In instructiunea writeln('Elementul minim este: ',min:15:2); min:15:2 inseamna ca iti afiseaza variabila min cu 15 caractere din care 2 sunt zecimale