Δευτέρα 24 Νοεμβρίου 2014

Άσκηση με πίνακες if-for

program third_program_with_arrays;
var
i,sum:integer;
ONOMA:array[1..5] of string;
BATH:array[1..5] of integer;
MO:real;

begin
  for i := 1 to 5 do
    begin
    writeln('Δώσε το όνομά σου');
    readln(ONOMA[i]);
    writeln('Δώσε το βαθμό που πήρε στην Pascal ');
    readln(BATH[i]);
    end
  ;
   for i:=1 to 5 do
   begin
   writeln(ONOMA[i]:10, ' ', BATH[i]);
   if BATH[i]>10 then
   begin
   writeln('Μπράβο καλέ μαθητή/τριά πέρασες');
   end
   else
   begin
   writeln('Είσαι άχρηστος/η δεν θα προκόψεις στη ζωή σου');
   end;
   end
   ;
   writeln('Ο συνολικός Μ.0 της τάξης σου είναι');
   sum:=0;
   for i:=1 to 5 do
   begin
   sum:=sum+BATH[i];
   end
   ;
   MO:=sum/5;
   writeln(MO);
 
 
end.   

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου