сформулируйте массив,содержащий 15 элементов,с помощью датчика случайн
ых чисел. получите новый массив,каждый элемент которого равен обратному
соответствующему элементу исходного массива. посчитайте кол- во не изменившихся элементов и найдите в новом массиве максимальный о абсолютной величине отрицательный элемент. выведите на экран исходные и полученные результаты

ты уверен?

я верю

что да

Я не понял, почему вцикле (for i:=1 to N div 2 do) укащан такой верхний предел счетчика? Он выполняется только для первой половины элементов массива. Может быть, автор решения так понял термин "обратный элемент"? Но в математике термин "обратный" по отношению к значению чего-либо означает, что нужно единицу разделить на это значение;, например, обратное к 3 число будет 1/3. А если имелось в виду расположение элементов в массиве, можно говорить о симметричности относительно центрального элемента

Тогда a[1] симметричен a[n], a[2] симметричен a[n-1] и т.д. Поэтому, либо неверен текст вопроса, а отвечающий понял, что надо сделать на самом деле, либо опрос верен, тогда неверен ответ.

const   N = 15;var  mas:array[1..999] of integer;  counter, c, max, i:integer;begin  max:=-maxint;  counter:=0;  randomize;  write('Старый массив: ');  for i:=1 to N do  begin    mas[i]:=random(101)-50;//случайные числа от -50 до 50    write(mas[i],' ');  end;  writeln;  for i:=1 to N div 2 do  begin    if mas[i] = mas[N-i+1] then      counter:=counter+1;    if (mas[i]<0) AND (mas[i]>max) then      max:=mas[i];   c:=mas[i];   mas[i]:=mas[N-i+1];  mas[N-i+1]:=c;  end;  if N mod 2 = 1 then    counter:=counter+1;  write('Новый массив: ');  for i:=1 to N do    write(mas[i],' ');  writeln;  writeln('Кол-во не изменившихся элементов: ', counter);  writeln('Максимальный отрицательный элемент: ', max);end.