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 как следует поступить дальше?
2720Елизавета0209
2
06.06.2019 22:00
0 
Популярные вопросы
- 2C=110°, 2D=70°, Зна-йдіть кут А, якщо 2 B = 40°....
2 - Балшыктын катуы, агашты жаруы, судын катуы кайсыга жатады? физикалық немесе...
2 - Выпишите эпитеты, которыми автор характерезует Энеи. О чём говорит?...
2 - Спишите предложения из произведений А. П. Чехова, расставляя запятые. Подчеркните...
3 - поомгите класс сор все подробно (все действия и тд)расписать желательно на...
1 - Предложите меры по предотвращению последствий атмосферной засухи...
1 - При свободном падении тело проходит в первую секунду 5м, а в каждую следующую...
3 - Соотнесите стихотворные строки и размер, которым они написаны: * Хорей Ямб...
1 - Соотносимые типы вешивки с рисункамию...
2 - Найти причастия в предложении: В Сиракузах он окружен почетом вниманием и...
2
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.