Pascal. Написать такую программу:На вход получает N - количество элементов последовательности

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 lt; 0) and (m*m lt; 7000) then

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

Ljudmila Jakubchik 2019-09-09 21:43:46

Не трудно же, опыта только малюсенько.

Чугрина Аринка 2019-09-09 21:45:02

Давайте-таки по делу будем.