Работа с массивами

[Катерина Рыжая]

Добрый вечер, не могли бы вы, написать код к этой программе, пожалуйста? буду очень признательна
Дано множество эллипсов. Среди эллипсов, центры которых в первом квадранте, найти наибольший.

[Mad_Cat]

1)

Дано множество эллипсов.

как оно описано?
2)

написать код к этой программе

на каком языке?

[gaw4]

намекните про язык программы
Дано множество эллипсов - где и как

( у меня бешенная скорость, опять успел

[Катерина Рыжая]

Добрый вечер,еще раз
условие задачи: Дано множество эллипсов. Среди эллипсов, центры которых в первом квадранте, найти наибольший.


множество вводится при помощи координат центров эллипсов и велечин их полуосей.

я попробовала написать текст программы,но к сожалению, она не работает,посмотрите,пожалуйста, что не так

program Tipovic;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x,y,a,b:array[1..20] of real;
i,imax:Byte; s,max:real; n:Integer;

begin
  writeln ('Vvedite kolichestvo ellipsov (n)');
  Readln (n);
  Writeln ('Vvedite massivi iz koordinat centrov ellipsov');
  for i:=1 to n do
    begin
      read (x[i]);
      read (y[i]);
    end;
  Writeln ('Vvedite velichinu poluosey dlya ellipsov');
   for i:=1 to n do
      begin
        read (a[i]);
        read (b[i]);
      end;
   s:=1;max:=1;
   for i:=1 to n do
   if (x[i]>0) and (y[i]>0) then
    begin
     s:=pi*a[i]*b[i];
     if s>=max then
     begin
     max:=s;
     imax:=i;
    end;
    end;
    writeln ('ploshad naibolshego iz ellipsov=', max);
    Writeln ('nomer naibolshego iz ellipsov=', imax);
    Readln;
end

[s-andriano]

А почему Вы решили, что программа не работает?

И еще: Вы всерьез считаете, что площадь не может быть менее единицы?

max:=1;

[Serge_Bliznykov]

да. s:=1; можно убрать, т.к. в цикле s присваивается, поэтому иницилизировать переменную не обязательно (хотя, конечно, это не ошибка и никак не повлияет на работоспособность программы.
а вот max лучше присвоить -1 (площадь меньше нуля не может быть )