Найти номер и значение наименьшего не кратного 3 элемента массива

13.12.2007, 01:11. **Показов** 2002. **Ответов** 1

1) Вычислить среднее геометрическое максимального и минимального элементов массива А(14).
2) Найти номер и значение наименьшего не кратного 3 элемента массива В(16).

пожалуста помогите, а то пипец мне((( :'(

@LastSoul · 13.12.2007, 01:49

2) Найти номер и значение наименьшего не кратного 3 элемента массива В(16).

Pascal

min := B[1]; n := 0;
for i:=1 to 16 do
 if (min>B[i]) and ((B[i] mod 3)<>0) then begin
  min := B[i];
  n := i;
 end;
// теперь [B]n[/B] - номер, а [B]min[/B] - значение минимального элемента...

Dark_Knight_24
		1
	Найти номер и значение наименьшего не кратного 3 элемента массива 13.12.2007, 01:11. Показов 2002. Ответов 1 Метки нет (Все метки) 1) Вычислить среднее геометрическое максимального и минимального элементов массива А(14). 2) Найти номер и значение наименьшего не кратного 3 элемента массива В(16). пожалуста помогите, а то пипец мне((( :'(

Опции темы

Найти номер и значение наименьшего не кратного 3 элемента массива

Решение