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

1) 
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=random(10); 
Write(A[i]:4); 
end;       
Writeln;
 Writeln(Введите число: ); 
Readln(s); 
For i:=1 to n do 
 begin   
If A[i]=s then k:=k+1; 
end; 
Writeln(Число  ,s,, его кол-во в массиве:  ,k, шт.);
END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
 i,min,mini,max,maxi:integer;
BEGIN
Clrscr; 
For i:=1 to n do 
 begin 
A[i]:=Random(20); 
 Write(A[i]:4);
  end;
  Writeln; 
max:=A[1]; 
min:=A[1]; 
For i:=1 to n do 
 begin 
 if A[i]>max then 
 begin 
 maxi:=i; 
 max:=A[i];   
end; 
  if A[i] begin   
mini:=i; 
 min:=A[i]; 
  end; 
end; 
Writeln(Максимальное число: ,max,. Индекс: ,maxi);   
Writeln(Минимальное число: ,min,. Индекс: ,mini );
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.