👤
a fost răspuns

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

Răspuns :

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

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari