Прошу помочь мне с решением задачи?

Question

[ovsyanka5000]

задача звучит следующим образом: без хранения найти два минимальных числа, сумма квадратов которых >500. фрагмент моей программы на паскале :

for i:=1 to n do begin 
 readln (f, a);
 if (a<min1) then begin min2:=min1; min1:=a; end;
 if (a>min1) and (a<min2) then min2:=a;
 end;

как можно проверить на квадраты? сама сообразить не могу. желательно описать алгоритм на паскале либо просто объяснить суть словами. благодарю заранее.

Comments

[Модератор]

ovsyanka5000 дорогой пользователь, настоятельно рекомендуем еще раз обратить самое пристальное внимание на п. 3.1 регламента работы сервиса (и, в особенности, на его последний абзац).
В противном случае, ваши вопросы будут удаляться по причине тег-спама, а систематические нарушения приведут к блокировке учетной записи.

Answer 1

[longclaps]

begin
    writeln(16, 16);
end.

Comments

[Lander]

0^2 + 0^2 = 0 + 0 = 0 > 500?
Оригинально вы рассуждаете!

[Lander]

longclaps,

сумма квадратов которых >500.

Да не... тут "больше" стоит.

[longclaps]

Lander, ок

[Lander]

longclaps, Короче снова жалоба на ваш ответ полетела... В попытках по-умничать вы забываете о людях у которых реально есть проблема.

Answer 2

[Cobalt747]

начинай с 1-цы и увеличивай с каждым шагом на 1.
Как только получишь сумму > 500 - прерывай цикл.