programavimas

sweiki gal galite padeti su sia programa ^_^ . labai prasau

type

skaic = file of real;

var

skfailas: skaic;

Aprasyti funkcija KiekMazVid(skfailas), kuri apskaiciuotu kiek

duotame faile yra elementu, kuriu reiksmes mazesnes uz visu failo

elementu aritmetini vidurki.

sweiki gal galite padeti su sia programa ;) . labai prasau

 

type

skaic = file of real;

var

skfailas: skaic;

 

Aprasyti funkcija KiekMazVid(skfailas), kuri apskaiciuotu kiek

duotame faile yra elementu, kuriu reiksmes mazesnes uz visu failo

elementu aritmetini vidurki.

Gal kam reikės dar...

program kiekmazvid;
const duom = 'elementai.txt';
var f : text;
	i : integer;
	vidurkis, suma, kiekis, n : real;

procedure nsv;
begin
suma := 0;
kiekis := 0;
assign(f, duom);
reset(f);
while not EOF(f) do begin
					readln(f, n);
					suma := n + suma;
					kiekis := kiekis + 1;
					end;
					vidurkis := suma / kiekis;
					writeln('Visu skaiciu suma = ',suma:0:2,'.');
					writeln('Viso skaiciu yra = ',kiekis:0:0,'.');
					writeln('Visu skaiciu vidurkis = ',vidurkis:0:2,'.');
end;
begin
nsv;
end.

P.S. Neparasyta paskutinė užduotis.

type

skaic = file of real;

var

skfailas: skaic;

Šita koda reikėjo panaudoti.