Άσκηση σε Free Pascal,μεγάλη ανάγκη!

[Tony Montana]

Να δημιουργηθεί πρόγραμμα σε PASCAL στο οποίο να εισάγονται από τον χρήστη οι βαθμοί ενός φοιτητή σε έναν μονοδιάστατο πίνακα και να υπολογίζεται ο μέσος όρος των μαθημάτων. Η εισαγωγή βαθμών θα περατώνεται με βαθμό -99 και εκτυπώνεται το πλήθος των μαθημάτων καθώς και ο μέσος όρος της βαθμολογίας.

 

 

Μπορεί να μου πει κάποιος τη λύση?Είναι μεγάλη ανάγκη.

[virxen75]

γράψε για αρχή το πρόγραμμα μέχρι εκεί που μπορείς

και θα σε βοηθήσω.

[Tony Montana]

program askisi;

uses crt;

const max=99;

type array_type=[1..max] of integer;

[virxen75]

>
program progr1;
uses crt;
var pinakas:Array[1..100] of single;
   mathimata:integer;avg:single;temp:string;
   prin:integer;
begin
    mathimata:=0;
    pinakas[1]:=0;
    prin:=2;
    while(pinakas[prin-1]<>-99) do
    begin
         writeln('mathima->',prin-1,'o');
         write('dose va8mo:');
         readln(pinakas[prin]);
         if (pinakas[prin]<>-99)  then
         begin
              avg:=avg+pinakas[prin];
         end;
          prin:=prin+1;
         mathimata:=mathimata+1;

    end;
    mathimata:=mathimata-1;
    if (mathimata>0) then
    begin
         writeln('mathimata=',mathimata);
         avg:=avg/mathimata;
         writeln('mesos oros=',avg:6:2);
    end;
end.

 

ολοκληρωμένο είναι έτσι

[Tony Montana]

Euxaristw para polu!!!!!!!!!!!!