rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3 Skąd: Pszczyna
|
Temat postu: |
|
|
Kod: | program srednia;
uses
crt;
var
liczba, suma, i, ilosc_liczb: integer;
begin
clrscr;
writeln ('Podaj ilość liczb całkowitych wprowadzanych z klawiatury');
readln (ilosc_liczb);
writeln;
suma := 0;
i := 0;
if ilosc_liczb > 0 then
begin
repeat
writeln ('Podaj ',i+1, ' liczbę');
readln (liczba);
suma := suma + liczba;
i := i+1;
until (i=ilosc_liczb);
writeln ('Średnia z ',ilosc_liczb, ' liczb wynosi = ', suma/i:6:2);
end
else
writeln ('Brak liczb do policzenia średniej');
readln;
end. |
O to chodzilo? :mrgreen:
Post został pochwalony 0 razy
|
|