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

I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
Program Ex_10;
 Type LinMass = Array[1..100] Of Integer;
 Var A : LinMass; N, i : Integer;
     R : Boolean;
begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   R := false; i:=1;
   while (i<=n) and not R do
   begin
    if a[i] = 0 then R:= true;
    i:=i+2;
   end;
   if R then writeln('Среди элементов с нечетными номерами есть нуль')
        else writeln('Среди элементов с нечетными номерами нет нуля')
end.

II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
В линейном массиве найти квадрат разности максимального и минимального элементов.
Type LinMass = Array[1..100] Of Integer;
 Var A : LinMass; N, i, max, min : Integer;
begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To __ Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   max:=1; min:=1;
   For I := 2 To N Do
   begin
     if a[i]>a[max] then __:=i;
     if a[i]<a[min] then min:=i;
   end;
   writeln('Ответ ', (sqr(a[max]-a[__])):7)
end.

III. Выполнить тренировочное задание ЕГЭ по информатике и ИКТ[1]

1. Дан массив, содержащий 2014 положительных целых чисел. Симметричной парой называются два элемента, которые находятся на равном расстоянии от концов массива. Например, 1-й и 2014-й элементы, 2-й и 2013-й и т. д. Порядок элементов в симметричной паре не учитывается: элементы на 1 и 2014 местах – это та же самая пара, что и элементы на 2014 и 1 местах. Напишите на одном из языков программирования программу, которая подсчитывает в массиве количество симметричных пар, у которых сумма элементов больше 20. Программа должна вывести одно число – количество отобранных симметричных пар. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.

Паскаль

const
N=2014;
var a: array [1..N] of integer;
    i, j, k: integer;
begin
  for i:=1 to N do
    readln(a[i]);
…
end.