Лабораторная работа № 10. Линейные массивы. Расчетные задачи Вариант №3

I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
3. В линейном массиве найти разность максимального и минимального элементов.
III. Выполнить тренировочное задание ЕГЭ по информатике и ИКТ
3)Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите алгоритм, позволяющий найти и вывести произведение двузначных элементов массива, которые не делятся на 6. Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных.
Паскаль

const N=30;
var a: array [1..N] of longint;  
    і, j, p: longint;
begin
  for і := 1 to N do
    readln(a[i]);
  ...
end.

IV. Решить задачу
3.Для заданного линейного массива вычислить a1*a2 + a2*a3 + a3*a4 + ... + an–1*an
Все задания решены на Pascal