Tryb drzewa | Tryb normalny

letwi · 22.05.2010 17:31

program pyta się o czy ma zacząć losować nastepnie losuje 6 liczb i wyświetla ich średnią arytmetyczną proszę o pomoc i z góry dziekuję

Propagandi · 23.05.2010 21:05

Próbuj coś sam też działać, bo to są jeszcze proste rzeczy.

Przykład poniżej losuje 6 cyfr z przedziału 0-9 i podaje średnią. Wczytywanie klawisza można też rozwiązać w oparciu funkcję ReadKey.

Kod:

program losowanie;

var

a,suma,losowa: integer;

odp: char;

begin

writeln('Rozpoczac program? [T/N]: ');

readln(odp);

if (odp = 't') or (odp = 'T') then

   begin

   suma := 0;

   write('Srednia z liczb: ');

   randomize;

   for a:= 1 to 6 do

       begin

       losowa := random(10);

       suma := suma + losowa;

       write(losowa, ' ');

       end;

   writeln('wynosi ',(suma/6):2);

   end;

writeln('Wcisnij dowolny klawisz, aby zakonczyc program');

readln;

end.

Tryb drzewa \| Tryb normalny potrzebuję program w PASCALU
Autor	Wiadomość