Массив содержащий 2014 положительных целых чисел, напишите на паскале программу которая находит в этом массиве кол-во локальных минимумов значение которых кратно 3 program c5 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.

For i:=1 to n do begin
if  not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else  
k:=a[i];
end;
for i:=1 to n do 
if (a[i]<k) and (a[i]<>1) then 
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.