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 как следует поступить дальше?

Не понял, зачем тебе переменная 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.

A) program primer; uses crt; var a, b: char; begin   write('введите первый символ a = ');   readln(a);   write('введите второй символ b = ');   readln(b);     writeln;   write('код символа a = ', ord(a), ', код символа b ', ord(b));   readln; end. в) program primer2; uses crt; var a,b,c: char; begin         write('введите чила a, b, c = ');         readln(a,b,c);                 writeln('результат сцепления: ', a+b+c); end.

Винер (wiener) норберт (26.11.1894, колумбия, миссури, — 19.3.1964, стокгольм) , американский учёный. к 14 изучил высшую , в 18 лет стал доктором философии гарвардского университета. с 1919 преподаватель, с 1932 профессор массачусетского технологического института. занимался логикой и теоретической . в 1920—30-е гг. получил известность как работами по теории потенциала, гармоническим функциям, и преобразованиям фурье, тауберовым теоремам, общему гармоническому анализу.  в 1945—47 годах у винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, и контроля. для этой науки винер предложил название кибернетика, получившее общее признание. норберту винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.