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

желательно 3 хотя бы еще

сейчас немного подожди

Спасибо

1)uses crt;var a=array[1..8] of integer;b=array[1..8] of integer;i,min,j:integer;beginrandomize;min:=16;for i:=0 to 8 dobegina[i]=random(30)-15;if (a[i]<min)min:=a[i];end;j:=0;for i:=0 to 8 doif (a[i] = min)beginb[j] = i;j = j+1;end;for i:=0 to j dowriteln(b[i]);end.2)uses crt;var a=array[1..51] of integer;i,sum,j,h:integer;beginh := 1;for i:=1 to 51 dobegina[i]=i+hh:=h+1;if (i = 5 or i = 6 or i =7 or i = 8) therebeginsum := 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;beginrandomize;readln(b)for i:=1 to 12 dobegina[i]=random(100)if (a[i] = b) therej := j+1;end;writeln(j);end.