Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Rata-Rata

Link Soal

PROGRAM rata;

VAR

n,i : integer;

b,k,r,m,jum : real;

BEGIN

readln(n);

k := 1000000;

b := -1000000;

FOR i:= 1 TO n DO

BEGIN

readln(m);

jum := jum+m;

if m < k then k := m;

if m > b then b := m;

END;

r := jum/n;

writeln(k:0:2,' ',b:0:2,' ',r:0:2);

END.