Не понял, зачем тебе переменная 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.
Информатика-наука о способах получения, накопления, хранения, преобразования, передачи, защиты и использования информации.
Информация- это сведения об окружающем мире, которые являются обьектом преобразования и используются для выработки поведения, для принятия решения , для управления или для обучания.
Информационные технологии-широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, сохранения, управления, обработки данных в том чиле с применением вычислительной техники.
Объект экономической информатики?
Var a: array [1..100] of integer;
n, i, j: integer;
fout: text;
begin
assign(fout, 'output.txt');
rewrite(fout);
n := 10; //n - длина массива
for i := 1 to n do
a[i] := random(100);
for i := 1 to n do
write(fout, a[i], ' ');
writeln(fout);
j := 1;
for i := 2 to n do
if a[i] > a[j] then
j := i;
writeln(fout, 'max = ', a[j], ' max_ind = ', j);
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln(fout, 'min = ', a[j], ' min_ind = ', j);
close(fout);
<span>end.</span>