Soru 19: Beş adet vize ve finalin ortalamasını bulan program

 

{Beş adet vize ve bir adet final notunun ortalamasını alan program}

program vize_final;

uses crt;

var

  vize: array [1..5] of integer;

  i,toplam,final:integer;

  ortalama,toplam2,ortalama2:real;

begin

  clrscr;

  for i:=1 to 5 do

    begin

      write(I,'. vize notunu giriniz :');

      readln(vize[i]);

      toplam:=toplam+vize[i];

    end;

  ortalama:=toplam/5;

  writeln('Vize ortalaması :',ortalama:3:2);

  write('Final notunu giriniz :');

  readln(final);

  toplam2:=ortalama+final;

  ortalama2:=toplam2/2;

  write('Başarı notu :',ortalama2:3:2);

  readkey;

end.