Question

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

Как следует поступить дальше?

Answer 1

Не понял, зачем тебе переменная m? Вот программа

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.