Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: [Utopiony] Napisz program który zapyta uzytkownika o N a następnie obliczy średnią z N podanych przez uz

W dół

Od 1 do 1 z 1

  1.  
  1.  
    Program srednia;
    var
    suma,liczba,x,ilość:integer;
    srednia:real;
    begin
    writeln('Zilu liczb obliczyć chcesz średnią')
    readln('ilość')
    suma:=0;
    for x :0 to ilość do
    begin
    writeln('podaj liczba n:''x')
    readln(liczba);
    suma:=suma+liczba;
    writeln('suma pośrednia liczb to :''suma);
    end;
    średnia:suma ilość;
    writeln('z tych liczb ''srednia n:z');
    readln;
    end.

Od 1 do 1 z 1

  1.