Предмет: Информатика, автор: RoyTheRockZ

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

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

Ответы

Автор ответа: Pro100Cool
0
Не понял, зачем тебе переменная 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.

Похожие вопросы
Предмет: Геометрия, автор: barbmasa06