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

I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
6
Program Ex_6;
 Type LinMass = Array[1..100] Of Integer;
 Var A : LinMass; N, i, p, K : Integer;
begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   p:=1; k:=0;
   For I := 1 To N Do
        if a[i] > 0 then begin p:=p*a[i]; k:=k+1 end;
   if k=0 then writeln('Положительных элементов нет')
       else writeln('Среднее геометрическое ', (power(p, 1/k)):7:2)
end.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
Найти сумму тех элементов массива, которые равны своему индексу.
Type LinMass = Array[1..100] Of Integer;
 Var A : LinMass; N, i, s : ___;
begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   s:= __;
   For I := 1 To N Do
     if a[i]=__ then s:=s+a[i];
   writeln('Ответ: ', s)
end.
III. Выполнить тренировочное задание ЕГЭ по информатике и ИКТ

1. Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования эффективный алгоритм, позволяющий найти и вывести наибольшую разность двух чисел, содержащихся в массиве. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.

Паскаль

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

IV. Решить задачу
Для заданного линейного массива вычислить
a1*2a2 + 3a3*4a4 + 5a5*6a6 +…
Все задания решены на Pascal