lezione 24-8

program somma_array;
uses crt, math;
var
    a:array[1..5] of integer;
    i,s:integer;
begin
    clrscr;
    for i:=1 to 5 do
        begin
        randomize;
        a[i]:=random(100);
        end;
    
    s:=0;
    for i:=1 to 5 do
        begin
        s:=s+a[i];
        end;
        
    writeln(s);
end.


{ In una gara di tuffi il punteggio finale di un concorrente viene calcolato come media dei voti espressi dalla giuria, 
 dopo aver eliminato il voto più alto e il più basso. 
 Realizzare un programma che stampi il punteggio finale di un concorrente prendendo in input i voti degli N giurati (max 10) }
 
program gara_di_tuffi;
uses crt, math;
var
    _punteggi: array [1..10] of integer;
    i:integer;
    min:integer;
    max:integer;
    somma:integer;
    punteggiofinale:integer;
    
begin
    clrscr;
    
{riempie l'array con numeri casuali}    
    
    for i:=1 to 10 do
        begin
        randomize;
        _punteggi[i]:=random(10);
        end;


{calcola il valore minimo dell'array}
    
    for i:=1 to 10 do
        begin
        min:=_punteggi[1];
        if min>_punteggi[i] then min:=_punteggi[i];
        end;


{calcola il valore massimo dell'array}
    
    for i:=1 to 10 do
        begin
        max:=_punteggi[1];
        if max<_punteggi[i] then max:=_punteggi[i];
        end;
        
{calcola la somma}
     
    somma:=0;
    
    for i:= 1 to 10 do
        begin
        somma:=somma+_punteggi[i];
        end;
    
{toglie min e max e calcola la media finale}
    punteggiofinale:= (somma-(min+max)) div 8;
    
    writeln('il punteggio e'' ' , punteggiofinale);
    
end.


Si abbiano in input 3 vettori paralleli contenenti i dati relativi ai libri di una biblioteca:
TIT             Titolo libro
AUT           Autore
NCOPIE     Numero di copie disponibili
Scrivere un programma che preveda le seguenti richieste.
a) Gestione prestito: dato un titolo in input se il numero di copie è maggiore di zero si effettua il prestito decrementando di 1 il numero di copie. Se il numero di copie è uguale a zero, si stampa un messaggio per libro non disponibile.
b) Gestione restituzione: dato in input il titolo si incrementa di 1 il numero di copie disponibili.
c)Stampa di tutti i libri di un determinato autore fonito in input nella forma:
LIBRO SCRITTO DA .................
TITOLO ........................................