Задать вопрос
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

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

+2
Ответы (1)
  1. 20 июля, 17:42
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal. Написать такую программу: На вход получает N - количество элементов последовательности чисел. Затем следуют элементы ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы