ra_nieSS

PROGRAM MENCARI NILAI RATA-RATA

Menggunakan Array ==>

uses wincrt;
var nilai : array [1..10] of integer ;
jm,rata : real;
begin
clrscr;
write (‘Menghitung rata-rata 10 buah nilai’);
write (‘Nilai = ’);readln (nilai [1] );
write (‘Nilai = ’);readln (nilai [2] );
write (‘Nilai = ’);readln (nilai [3] );
write (‘Nilai = ’);readln (nilai [4] );
write (‘Nilai = ’);readln (nilai [5] );
write (‘Nilai = ’);readln (nilai [6] );
write (‘Nilai = ’);readln (nilai [7] );
write (‘Nilai = ’);readln (nilai [8] );
write (‘Nilai = ’);readln (nilai [9] );
write (‘Nilai = ’);readln (nilai [10] );




uses wincrt;
var nilai:array[1..10] of integer;
i,n:integer;
j,r:real;
begin
clrscr;
writeln('Menghitung Rata-rata');
write('masukkan Jumlah data [max 10]=');readln(n);
for i:= 1 to 10 do
begin
write('Nilai-',i,'=');readln(nilai[i]);
end;
j:=0;
for i:=1 to n do
begin
j:=j+nilai[i];
end;
r:=j/n;
writeln('Jumlah Seluruh Nilai =',j:2:2);
writeln('Rata-rata =',j:2:2);
end.