Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество локальных минимумов, значение которых кратно 3. Локальным минимумом называется элемент массива, который меньше всех своих соседей. Например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных минимума: это элементы, равные 4 и 3. Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
| Бейсик | Паскаль |
|---|---|
N=2014 DIM A(N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END | 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. |
| Си++ | Алгоритмический язык |
#include <iostream> using namespace std; #define N 2014 int main(){ int a[N]; int i, j, k; for (i=0; i<N; i++) cin >> a[i]; … } | алг нач цел N=2014 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон |
| Python | |
# допускается также # использовать # целочисленные переменные j, k a = [] n = 2014 for i in range(0, n): a.append(int(input())) ... | |
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.4). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
Программа просматривает все элементы массива, сравнивает все элементы с соседями, проверяет делимость на 3 и подсчитывает количество подходящих значений.
Пример программы на Паскале
k:=0;
if (a[1] < a[2]) and (a[1] mod 3 = 0) then k:=k+1;
for i:=2 to N-1 do begin
if (a[i] < a[i-1]) and (a[i] < a[i+1]) and (a[i] mod 3=0) then k:=k+1;
end;
if (a[N] < a[N-1]) and (a[N] mod 3 = 0) then k:=k+1;
writeln(k);