Question

za pomocą pętli repeat wczytaj 5 wartości z klawiatury a następnie obliucz ich sumę i średnią

Answer 1

program nazwa;
uses crt;
var
x:integer;
liczba:double;
suma:double;
begin
clrscr;
x:=0;
suma:=0;

repeat
x:=x+1;
readln(liczba);
suma:=suma+liczba;
until (x=5);

writeln;
writeln('Suma: ',suma:0:2);
writeln('Srednia: ',suma/5:0:2);



readln;
end.

Answer 2

uses crt;
var x:integer;
i,liczba:byte;
suma:integer;
srednia:real;
begin
clrscr;
repeat
clrscr;
inc(i);
write('Podaj liczbe: ');
readln(liczba);
suma:=suma+liczba;
srednia:= suma div 5
until i = 5 ;
clrscr;
writeln;
writeln('Suma: ',suma);
writeln('Srednia: ',suma/5:0:2);

readln;
end.

 

Liczę na najlepszą odpowiedź. Pozdro.