Десятичное число 24 или 11
Program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Ответ единица. :)
Пояснения или решение нужны?
Учитывая вопрос, ответом будет
"Да, я справлюсь"
или
"Нет, я не справлюсь"
Смотря что больше нравится