Pascal. Написать такую программу:На вход получает N - количество элементов последовательности чисел.Затем следуют элементы последовательности.Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода. Например на вход идут:4-36-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 doreadln (a[i]);m := a[i];if (m < 0) and (m*m < 7000) thenКак следует поступить дальше?
Не понял, зачем тебе переменная 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 - количество элементов последовательности чисел.Затем следуют элементы последовательности.Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода. Например на вход идут:4-36-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 doreadln (a[i]);m := a[i];if (m < 0) and (m*m < 7000) thenКак следует поступить дальше? » от пользователя Вика Парамонова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!