Question

PILNE napisz program obliczajacy srednia n-liczb calkowitych
tylko perfect, reszta mnie nie obchodzi .

to zadania ma byc jako :
a) schemat w wordzie z zastosowaniem wszystkich tych symboli bla bla
b) i w pkt
c) program w PASCALU

w razie pytan pisz ---> 2718415
lub PW

Answer 1

C)
Program srednia;
uses crt;
var liczba,suma,licznik,n:byte;
begin
clrscr;
writeln('Ile bedzie liczb?');
readln(n);
suma:=0;
for licznik:=1 to n do
begin
repeat
writeln('Podaj',licznik,'liczbe);
readln(liczba);
until(liczba>=0);
suma:=suma+liczba;
end;
writeln('Obliczona srednia to:',suma/n:0:2);
writeln('wcisnij ENTER');
readln;
end.

Answer 2

Kod:
Program kat;
uses CRT;
var
i,liczba,suma : integer;
srednia: real;
odp : string;
begin
clrscr;
i := 1;
odp := 't';
while (odp <> 'n') and (odp <> 'N') do begin
Writeln('Podaj ',i,' liczbe:');
readln(liczba);
suma := suma + liczba;
i := i+1;
Writeln('Wprowadzasz nastepna liczbe? [T/N]');
odp := readkey;
Writeln;
end;

srednia := suma / (i-1);

Writeln('Srednia z podanych liczb wynosi: ',srednia:2:2);
readln;
end.