Pascal. написать такую программу: на вход получает n - количество элементов последовательности чисел. затем следуют элементы последовательности. программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода. например на вход идут: 4 -3 6 -7 -99 на выходе получаем: -7 -3 я предлагаю такое начало программы: program num9; const n = 5; var a : array [1..n] of integer; i, m : integer; begin for i : = 1 to n do readln (a[i]); m : = a[i]; if (m < 0) and (m*m < 7000) then как следует поступить дальше?
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.