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

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

Question

Информатика

Паллада

20 июля, 15:31

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

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

+1

Ответы (1)

Знаете ответ?

Киприан · 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.