Pereiti prie turinio

Rekomenduojami pranešimai

  • po 1 mėnesio...
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.

Redagavo Spalvotas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...