Soru 09: N adet işçinin maaşlarının ortalamasını bulan program

 

{N sayıda işçinin ücretlerini okuyup ortalamasını bulan program}

program isci_ortalama;

uses crt;

var

  i, n :integer;

  maas : array [1..100] of longint;

  toplam :longint;

  ortalama :real;

begin

  clrscr;

  write('İşçi sayısını giriniz :');

  readln(n);

 

  for i:=1 to n do

    begin

      write(i,'. işçinin ücretini giriniz :');

      readln(maas[i]);

      toplam:=toplam+maas[i];

    end;

  ortalama:=toplam/n;

  write('İşçilerin maaş ortalaması :',ortalama:9:2);

  readkey;

end.