Ввести одномерный массив a , вывести его. найти произведение элементов стоящих слева и справа от минимального элемента массива. разделить на найденное произведение минимум и максимум. изменённый массив вывести. вот начало: program abc; const nmass=100; var a: array[1..nmass] of integer; n, i, k, max, min: byte; buf: integer; begin cls; //ручной ввод массива writeln('введите число элементов в массиве a'); readln(n); writeln('вводим элементы массива a: '); for i: =1 to n do begin write('a[', i, ']='); readln(a[i]); end; //вывод массива до измененния writeln('исходный массив a: '); for i: =1 to n do write(a[i]: 5); writeln;

Прежде всего, тот код, который вы написали - чепуха! сейчас вам напишу свой. еще, на счет последнего, мы массив ни коем образом не изменяем, просто выполняем операции с его элементами, поэтому, вывести "измененный" массив не получится.  var mass: array[0..10] of integer;     max_elem, min_elem, i, min_index, multontheleft, multontheright: integer; begin for i : = 1 to 10 do begin   write('введите ', i, ' элемент массива: ' );   readln(mass[i]); end; for i : = 1 to 10 do writeln('mass[', i, '] = ', mass[i]); min_elem : = mass[1]; for i : = 1 to 10 do begin   if mass[i] < min_elem then begin   min_elem : = mass[i];   min_index : = i;   end; end; writeln('минимальное значение: ', min_elem, ', индекс элемента: ', min_index ); multontheleft : = 1; multontheright : = 1; for i : = 1 to min_index do multontheleft : = multontheleft * mass[i]; for i : = min_index to 10 do multontheright : = multontheright * mass[i]; writeln('произведение слева: ', multontheleft, ', справа: ', multontheright); end.единственное, что я не понимаю, так это "разделить на произведение минимум и максимум". объясните ясней

Объяснение:

Основные подходы к процессу программирования: объектный, структурный и модульный.

Демонстрационно-обучающая программа по математике «Скорость движения».

Компьютерная модель движения заряженной частицы в однородном магнитном поле.

Компьютерная поддержка решения алгебраических уравнений численными методами.

Компьютерная поддержка темы «Построение и преобразование графиков функций».

Компьютерное моделирование движения заряженной частицы в электростатическом поле.

Обучающая программа "Построение графика квадратичной функции".

Обучающее-контролирующая программа "Системы счисления".

Разработка программно-методического комплекса – "Графы в планиметрических теоремах и задачах".

Реализация алгоритмов выполнения операций над векторами средствами Borland Delphi.  

Решение систем уравнений методами Гаусса с использованием ЭВМ.

Создание графических образов математических объектов на языке Visual Basic.

Разновидности компьютерных вирусов и методы защиты от них. Основные антивирусные программ

Для стека:

const

 MAX_SIZE = 100;

var

 size, n: integer;

 stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 inc(size);

 stack[size] := a;

end;

procedure view;

var

 i: integer;

begin

 for i := 1 to size do

   write(stack[i], ' ');

 writeln;

end;

Для очереди:

const

 MAX_SIZE = 100;

var

 head, tail: integer;

 queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 queue[tail] := a;

 inc(tail);

end;

procedure view;

var

 i: integer;

begin

 for i := head to tail - 1 do

   write(queue[i], ' ');

 writeln;

end;

Объяснение:

Можно лучший , и учи C++