Question

PILNEE!!!

Napisz program, który wypisze na ekran sumę i średnią, liczb zawartych w pliku dane.txt. Liczby
zapisane są w pliku jedna pod drugą, pierwsza liczba oznacza ilość danych (kolejnych liczb).

program ma byc napisany w jezyku Pascalu (korzystam z programu dev-pascal

Potrzebuje na teraz :D

Answer 1

//licze na naj...

 

program nazwa;
uses CRT;
var
  plik:text;
  liczba:integer;
  suma:integer;
  pierwsza:integer;
  x:integer;


begin
ClrScr;
suma:=0;
pierwsza:=0;

assign(plik,'dane.txt');
reset(plik);
while not eof(plik) do
begin
inc(x);
if (x=1) then
begin
readln(plik,liczba);
pierwsza:=liczba;
end;
readln(plik,liczba);
suma:=suma+liczba;
end;
close(plik);
writeln('Suma: ',suma);
writeln('Srednia: ',suma/pierwsza:0:2);

readln;
end.