№1 массив а из 8 элементов заполнить целыми случайными из [-15; 15]. найти min элемент массива. выдать порядковые номера всех элементов, равных минимальному. №2 массив а заполнить: 1 3 5 7 9 99 найти среднее арифметическое элементов, расположенных с 5 по 8. №3 дан массив а из 12 элементов. вычислить кол-во элементов, значение которых равно в

1)
uses crt;
var a=array[1..8] of integer;
b=array[1..8] of integer;
i,min,j:integer;
begin
randomize;
min:=16;
for i:=0 to 8 do
begin
a[i]=random(30)-15;
if (a[i]<min)
min:=a[i];
end;
j:=0;
for i:=0 to 8 do
if (a[i] = min)
begin
b[j] = i;
j = j+1;
end;
for i:=0 to j do
writeln(b[i]);
end.
2)
uses crt;
var a=array[1..51] of integer;
i,sum,j,h:integer;
begin
h := 1;
for i:=1 to 51 do
begin
a[i]=i+h
h:=h+1;
if (i = 5 or i = 6 or i =7 or i = 8) there
begin
sum := sum=a[i];
j := j+1;
end;
end;
writeln(sum/j);
end.
3)
uses crt;
var a=array[1..12] of integer;
i,b:integer;
begin
randomize;
readln(b)
for i:=1 to 12 do
begin
a[i]=random(100)
if (a[i] = b) there
j := j+1;
end;
writeln(j);
end.