Среди точек с координатами (x1,y1),(x2,y2)…(x10,y10) найти количество точек, лежащих в...

Question

Среди точек с координатами (x1,y1),(x2,y2)…(x10,y10) найти количество точек, лежащих в I-ой четверти и вывести на печать их номера.

Answer 1

Pascal


var x,y:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
write('(');
read(x[i]);
write(';');
read(y[i]);
write(')');
end;
writeln('To4kU, koToPbIe /\E>Ifor i:=1 to 10 do
if (x[i]>0)and(y[i]>0) then begin k:=1+k; writeln(i); end;
writeln('BCEtO - ',k);
end.