Twoim problemem jest to, że powszechną NICOŚĆ mylisz z osobistą PUSTKĄ
Ćwiartki
var n,i,ile:integer;
x,y:array[1..50]of integer;
p:textfile;
srednia:real;
begin
assignfile(p,'PUNKTY.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;
close(p);
srednia:=0;
for i:=1 to n do
srednia:=srednia+sqrt(sqr(x[i])+sqr(y[i]));
srednia:=srednia/n;
ile:=0;
for i:=1 to n do if (x[i]<0) and (y[i]>0) then
ile:=ile+1;
writeln('Srednia odleglosc punktow od (0,0) = ',srednia:4:1);
writeln('ile punktow w II cwiartce = ',ile);
readln;
end.
Zad 4 „koło”
var n,i,ile,r:integer;
x,y:array[1..100] of integer;
p:textfile;
srednia:real;
begin
writeln('podaj wartosc r ');readln(r);
assignfile(p,'PUNKTY.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;
close(p);
ile:=0;
for i:=1 to n do if (x[i]*x[i]+(y[i]*y[i]+2*y[i]+1)>r*r) then
ile:=ile+1;
srednia:=0;
for i:=1 to n do srednia:=srednia+sqrt(sqr(x[i])+sqr(y[i]));
srednia:=srednia/n;
writeln('Srednia odleglosc punktow od (0,0)=',srednia:4:1);
writeln('ile punktow na zew. okregu=',ile);
readln;
z3; odległość od pkt A
var
n,i,ile,xa,ya:integer;
x,y:array[1..100] of integer;
p:textfile;
srednia:real;
begin
writeln('podaj wartosc x punktu A '); Readln(xa);
writeln('podaj wartosc y punktu A '); Readln(ya);
assignfile(p,'PUNKTY.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;
close(p);
srednia:=0;
for i:=1 to n do
srednia:=srednia+sqrt(sqr(x[i]-xa)+sqr(y[i]-ya));
srednia:=srednia/n;
ile:=0;
for i:=1 to n do if (sqrt(sqr(x[i]-xa)+sqr(y[i]-ya))>srednia) then
ile:=ile+1;
writeln('Srednia odleglosc od A =',srednia:4:1);
writeln('punkty o odleglosci > sredniej= ',ile);
readln;
end.
Zad2 - bramki
var n,i,max:integer;
a,b:array[1..15] of integer;
p:textfile;
suma:real;
begin
assignfile(p,'BRAMKI.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,a[n],b[n]); end;
close(p);
suma:=0;
for i:=1 to n do
suma:=a[i]+b[i];
max:=0;
for i:=1 to n do if (b[i]>max)then
max:=b[i];
writeln('Suma wszystkich goli=',suma:4:1);
writeln('najwieksza liczba goli strzelonych przez gosci=',max);
readln;
end.
Zad 1 –bramki
var n,i,max:integer;
a,b:array[1..50] of integer;
p:textfile;
srednia:real;
begin
assignfile(p,'BRAMKI.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,a[n],b[n]); end;
close(p);
srednia:=0;
for i:=1 to n do
srednia:=srednia+a[i];
srednia:=srednia/n;
max:=0;
for i:=1 to n do if (a[i]+b[i]>max)then
max:=a[i]+b[i];
writeln('Srednia liczba bramek zdobytych przez gospodarzy=',srednia:4:1);
writeln('najwieksza liczba goli strzelonych w 1 spotkaniu=',max);
readln;
end.