Не понял, зачем тебе переменная 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.
<span>OS/2, AmigaOS, Mac OS, Solaris, Linux и UNIX, Windows, </span><span>Novell.</span>
На локальном диске (:С) или на флешке ,или на диске.
Во внешней папяти
Во-первых, CR-RW многоразовый для записи и перезаписи, CR-R одноразовый. (Даже если записать крохотный файл, который ничего не занимает, больше уже ничего нельзя записать на CD-R)
Также они различаются скоростью записи данных.
<em>P.s. Если Вы отметите любое ре</em><em>шение как "Лучшее решение", то к Вам вернётся 25% потраченных пунктов на это Задание.</em>