the task is: without storage to find the two minimum numbers, sum of whose squares >500. a fragment of my program in Pascal :
``````for i:=1 to n do begin
phony (f, a);
if (a<min1) then begin min2:=min1; min1:=a; end;
if (a>min1) and (a<min2) then min2:=a;
end;``````

how to check the squares? she can not figure out. it is desirable to describe the algorithm in Pascal, or simply to explain the words. thank you in advance.
March 19th 20 at 08:50
March 19th 20 at 08:52
``````begin
writeln(16, 16);
end.``````
0^2 + 0^2 = 0 + 0 = 0 > 500?
Originally you argue! - Kara commented on March 19th 20 at 08:55
@Mallie.Nikolaus50,
the sum of the squares of which >500.

Yes... there is "more" is. - Kara commented on March 19th 20 at 08:58
@Kara, OK - Mallie.Nikolaus50 commented on March 19th 20 at 09:01
@Mallie.Nikolaus50Shorter again complaint to your response flew... In attempts to be clever, you forget about people who really have a problem. - Kara commented on March 19th 20 at 09:04
March 19th 20 at 08:54