ingintau: ingintau: Tugas Struktur Data SI 08B1

ingintau: ingintau: Tugas Struktur Data SI 08B1

STRUKTUR DATA NILAI RATA-RATA

type
nilai1 = array [1..100] of integer;
var
nilai:nilai1;
jum,n,i:integer;
rata:real;
begin
write('Masukan banyaknya data : ');readln(n);
for i := 1 to n do
begin
write('Masukan data ke',i,' = ');readln(nilai[i]);
jum:jum+nilai[i];
end;
rata:=jum/n;
writeln('Jumlah keseluruhan data = ',jum);
writeln('Jumlah rata-ratanya = ',rata:2:2);
end.