Parašė SniperVI-six· 2013 Kov. 11 00:03:31
#45
aphora parašė:
Studentų grupės egzaminų sesijos vidurkiai yra surašyti masyve A(n). Apskaičiuoti, kiek studentų ir kurie jų mokosi geriau, negu grupės vidurkis.
Reikia išspręst su tekstiniais failais bei funkcijomis ar procedūromis.
Būčiau beprotiškai dėkinga jei padėtumėt.. :(
program studentai;
const max = 100;
var
n, y, c, sum : integer;
d : real;
txt : text;
A:array[1..max] of integer;
vardas:array[1..max] of string[10];
procedure ivestis;
begin
assign(txt, 'duomenys.txt');
reset(txt);
readln(txt, n);
for y := 1 to n do
begin
read(txt, vardas[y]);
readln(txt, A[y]);
end;
close(txt);
end;
procedure skaiciavimas;
begin
c := A[1];
for y := 2 to n do
begin
c := c + A[y];
d := c / n;
end;
end;
procedure isvestis;
begin
assign(txt, 'rezultatai.txt');
rewrite(txt);
for y := 1 to n do
begin
if d < A[y] then
begin
write(txt, vardas[y]);
writeln(txt, A[y]:2);
sum := sum + 1;
end;
end;
writeln(txt);
writeln(txt, sum , ' mokyniai mokosi geriau negu grupes vidurkis');
writeln(txt);
writeln(txt, 'grupes vidurkis ', d:0:2);
readln;
close(txt);
end;
begin
ivestis;
skaiciavimas;
isvestis;
end.