Решение нужно на бейсике дан массив, содержащий 2014 положительных целых чисел. напишите на одном из языков программирования программу, которая находит сумму локальных максимумов этого массива, значение которых не кратно 5. локальным максимумом называется элемент массива, который больше всех своих соседей. например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных максимума: это элементы, равные 12 и 8. программа должна вывести сумму подходящих элементов, значения элементов выводить не нужно. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. бейсик 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. в качестве ответа вам необходимо фрагмент программы, который должен находиться на месте многоточия. вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, free pascal 2.4). в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
DIM A(N) AS INTEGER
DIM I, J, K AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I
k = 0
if A(1) > A(2) and (A(1) mod 5 <> 0) then k = k + A(1)
if A(N) > A(N-1) and (A(N) mod 5 <> 0) then k = k + A(N)
for i = 2 to N-1
if (A(i) > A(i+1)) and (A(i) > A(i-1)) and (A(i) mod 5 <> 0) then k = k + A(1)
next i
print k
Именно бейсика у меня нет, так что писалось на VBS а потом добавлялись символы как думаю было бы правильно