Question

W turbo pascalu:
napisz i uruchom program który wylicza średnia arytmetyczną dowolnego skończonego ciągu liczb rzeczywistych

Answer 1

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.

 

Nie jestem pewien czy o coś takiego Ci chodziło. W razie reklamacji pisz PW.