Дан массив из 10 элементов -случайных чисел из спектра [-30;30].1,Подсчитать в

program zz1;
const n = 10; // задаем количество элементов в массиве
var i, s, max1, min, k:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
write( введите заданное число );
read(s);
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(61)-30;
for i:=1 to n do // выводим приобретенный массив на экран
write(m[i], );
writeln; // перебегаем на новую строку для вывода ответа
for i:=1 to n do
if m[i] = s then k:=k + 1;
writeln( частей одинаковых данному = , k); // выводим ответ
max1:=0;
for i:=1 to n do // обретаем наибольший элемент
if m[i]gt;max1 then begin max1:=m[i];k:=i;end;
writeln( наибольший элемент = ,max1, его номер = ,k); // выводим ответ
min:=1000000; //задаем начальное значение для малого элемента
for i:=1 to n do // организуем цикл, в котором переберем все числа массива
if m[i] lt; min then begin min:=m[i];k:=i;end; //проверяем, если число из массива меньше малого, то записываем его в малое
writeln(малый элемент = , min, его номер = ,k); // выводим ответ
writeln( локальные минимумы: );
for i:=2 to n-1 do
if (m[i] lt; m[i-1])and(m[i] lt; m[i+1]) then write(m[i], );
writeln;
writeln( локальные максимумы: );
for i:=2 to n-1 do
if (m[i] gt; m[i-1])and(m[i] lt; m[i+1]) then write(m[i], );
end.