Паскаль

[Jondeer]

Неполучается написать программу. Помогите пожалуйста!!!
Задача! При заданных абциссах x1,x2,x3...xn и ординатах y1,y2,y3...yn точек плоскости XOY определить у какого числа этих точек положительна как абцисса,так и ордината, а также найти средннюю ординату всех точек из числа заданных.

[Alex21]

program points;
const
N=10;  {размерность}

var x,y:array[1..10]of integer; {массив Х У}
    middle:real; {среднее Y}    i:integer;


{заполнение массива случайными числами}
procedure CreateXY;
begin
  Randomize;
  Writeln('massiv X:');
  for i:=1 to N do
  begin
    x[i]:=Random(10)-Random(10);
    Write(x[i],' ');
  end;
  Writeln;
  Writeln('massiv Y:');
  for i:=1 to N do
  begin
    y[i]:=Random(10)-Random(10);
    Write(y[i],' ');
  end;
  Writeln;
  Writeln('-------');
end;

{поиск точки из Первой четверти,
т.е. X>0 Y>0}
procedure FindPlus;
  var flag:boolean;
begin
  flag:=false;
  for i:=1 to N do
  begin
    if (x[i]>0)and(y[i]>0) then
    begin
      flag:=true;
      Write('#',i,' ');
    end;
  end;
  {если таких чисел нет, то сообщим об этом}
  if Flag=false then Write('++ NONE');
  writeln;
  Writeln('-------');
end;

{поиск среднего по Y}
procedure FindMiddle;
var sum:integer;
begin
sum:=0;
middle:=0;
  for i:=1 to n do
  begin
    sum:=sum+y[i];
  end;
  middle:=sum/n;
  Writeln('MIDDLE = ',middle:2:2);
end;

begin
  createXY;  {создание массивов}
  FindPlus;  {вывод ++}
  FindMiddle;{поиск среднего}

  Readln;
end.

[Jondeer]

Спасибо!!!!!!!!!!!

[puporev]

По условию задачи тебе нужно количество точек в первой четверти, а не их номера. Кроме того, мне кажется в этой программе не нужны подпрограммы, т.к. они используются только один раз и просто перегружают код.
Можно написать короче, например так:

program Points;
uses crt;
const n=10;
var x,y:array[1..n] of integer;
     i,k,sum:integer; 
     Ymid:real;
begin
clrscr;
Заполняем  массивы абцисс и ординат числами.
randomize;
writeln(‘massivX:’);
for i:=1 to n do
   begin
       x[i]:=random(10)- random(10);
       write(x[i],’ ‘);
   end;
writeln;
writeln(‘massivY:’);
for i:=1 to n do
   begin
       y[i]:=random(10)- random(10);
       write(y[i],’ ‘);
   end;
writeln;
writeln(‘--------------------------------------‘);
Вычисляем количество точек в первой четверти
k:=0;
for i:=1 to n do
    begin
        if (x[i]>0) and (y[i]>0) then
        begin
        k:=k+1;
        end;
     end;
writeln;
writeln(‘количество точек в 1 четверти = ‘,k);
writeln(‘--------------------------------------‘);

Вычисляем среднюю ординату
sum:=0; Ymid:=0;
      for i:=1 to n do
      begin
           sum:=sum+y[i];
      end;
ymid:=sum/n;
writeln;
writeln(‘средняя ордината = ’,Ymid:2:2);
writeln(‘--------------------------------------‘);
readln;
end.

Готовый код во вложении.