Soru 11: Üç yüz adet öğrencinin not ortalamasını bulan program

 

{300 öğrencinin sınav ortalamasını bulan program}

program sinav_ortalama;

uses crt;

var

  sinavnotu:array[1..300] of integer;

  i:integer;

  toplam:longint;

  ortalama:real;

begin

  clrscr;

  for i:=1 to 300 do

    begin

      write(i,'. öğrencinin sınav notunu giriniz :');

      readln(sinavnotu[i]);

      toplam:=toplam+sinavnotu[i];

    end;

  ortalama:=toplam/300;

 writeln('Öğrencilerin sınav ortalaması :',ortalama:3:2);

 readkey;

end.