17320 srednia

piogiam cw3_35;

{ Program oblicza średnia N podanych przez użytkownika liczb. } { Katalog r3_08 : 3_35.pas    }

const

Suma : Real - 0; var

Liczba, I : Byte;

Wartość : Real;

begin

Write ('Podaj liczbę liczb: '); Readln (Liczba); if (Liczba<l) then

Writeln ('Nie można policzyć średniej ', Liczba, ' liczb.') else begin

for I 1 to Liczba do begin

Write ('Podaj liczbę ', I, '; '); Readln (Wartość);

Suma Suma + Wartość; end;

Writeln ('Średnia podanych ', Liczba, ' liczb to: ', Suma/Liczba:10:2);

end;

Readln; end.