Составить программу на языке паскаль.вычислить произведение отрицательных элементов одномерного массива а длины н стоящих на местах кратных 3

Var a: array[1..10] of integer; begin k: =0;           for i: =1 to 10 do begin           writeln('введите 10 чисел'); readln(a);           max: =a[i]; min: =a[i]           for i: =2 to 10 do begin           if a[i]> max then max: =a[i];           if a[i]< min then min: =a[i];   end;           s: =(min+max)/2;           for i: =1 to 10 do begin           if a[i]< s then k: =k+1; end;           writeln(k); end.

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