Задать вопрос
ИнформатикаИнформатика
16 августа, 09:56

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

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

+4
Ответы (1)
  1. 16 августа, 13:09
    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 - количество элементов последовательности чисел. Затем следуют элементы ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Pascal. Написать такую программу: На вход получает N - количество элементов последовательности чисел. Затем следуют элементы последовательности.
Регистрация Забыл пароль