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

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

II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.

9. В линейном массиве найти сумму максимального и минимального элементов.

Type LinMass = ___[1..100] Of Integer;
 Var A : LinMass; N, i, max, min : Integer;
begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   max:=1; min:=1;
   For I := 2 To __ Do
   begin
     if a[i]>a[max] then max:=i;
     if a[i]<a[min] then min:=i;
   end;
   writeln('Ответ ', a[max]+a[__])
end.

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

9. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, значение которых более чем в два раза превосходит значение предшествующего элемента. Например, для массива из 6 элементов, содержащего числа 2, 5, 10, 15, 40, 100, программа должна выдать ответ 3 (условию соответствуют элементы со значениями 5, 40 и 100). Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.

Паскаль

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.