Programalama > PASCAL

uses crt;
var
   ogr:array[1..5,1..3] of integer;
   ort:array[1..5] of real;
   S:BYTE;
   procedure ortalamahesaplama;
begin
     for s:=1 to 5 do
     ort[s]:=(ogr[s,1]+ogr[s,2]+ogr[s,3])/3;
end;
procedure gir;
begin
     for s:=1 to 5 do
     begin
     write(s,'.”grencinin  1.yazl notunu gir=');readln(ogr[s,1]);
     write(s,'.”§rencinin  2.yazl notunu gir=');readln(ogr[s,2]);
     write(s,'.”§rencinin  3.yazl notunu gir=');readln(ogr[s,3]);
     end;
     end;

procedure listeleme;

begin
clrscr;
     writeln('S.NO                  ORTALAMA');
     writeln('------------------------------');
     for s:=1 to 5 do
     begin
     gotoxy(1,s+2);write(s,'.™¦R.ORT......:');
     gotoxy(25,s+2);write(ort[s]:3:0);
     end;
end;
{ana program}
BEGIN
     CLRSCR;
     gir;
     ortalamahesaplama;
     listeleme;
     READLN;
END.