[PascalABC] Что то не догоняю.Array Massive

[LinuXxXовод]

var k, m:integer; 
A: array[1..10] of integer; 
begin 
	A[1]:=16; // +1
	A[2]:=20; // +1
	A[3]:=20; // 0 
	A[4]:=21; // +1
	A[5]:=14; // 0
	A[6]:=21; // 0
	A[7]:=28; // +1
	A[8]:=12; // 0
	A[9]:=15; // 0
	A[10]:=25;// +1
	m:=1;
	for k:=1 to 10 do
		if A[k] > A[m] then
		begin
			m:=k
		end;
	   writeln(m);
end.

Я насчитал всего 5, а правильный ответ 7.
Где 2?

Помогите ребят

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Аватар]

А чего ты насчитал? Оно и выдаст 7 - индекс первого максимального элемента. Если считал присвоения в цикле, то 3 раза

[Serge_Bliznykov]

Сообщение от LinuXxXовод

Я насчитал всего 5, а правильный ответ 7.

правильный ответ: 7 - это индекс (порядковый номер, считая от единицы) максимального значения в массиве.

а вот что Вы считали и почему у Вас 5 - я не понимаю.

[digitalis]

У меня прорезалась телепатия: у человека в A[k] > A[m] знак > не тем концом повернут или индексы местами поменены, во он и нашел минимальный элемент 14. Видно текст для форума и тот, что в компе - не совпадает, не скопи-пастен, а руками набирался.
Ой нет, пардон - тогда было бы 12. Значит, вмешательство внешних сил. Или парниковый эффект

[Cuprum5]

Сообщение от digitalis

Видно текст для форума и тот, что в компе - не совпадает, не скопи-пастен, а руками набирался.

- по каким признакам это видно?

[Serge_Bliznykov]

Сообщение от digitalis

У меня прорезалась телепатия

ничего у Вас не прорезалось, можете не переживать.

Сообщение от digitalis

Ой нет, пардон - тогда было бы 12.

в массиве из 10 элементов не может быть индекса 12.
тогда выдалось бы 8 (индекс/номер минимального элемента)

Но это всё неважно.
потому как:
1) автор темы пропал
2) абсолютно непонятно, почему у него +1 и что он, собственно, подсчитывал.
(обратите внимание - именно - подсчитывал, а не искал! что означают его +1..)

[Sciv]

Сообщение от LinuXxXовод

Я насчитал всего 5, а правильный ответ 7

Довольно странно считать, что написанная Вами по известному только Вам алгоритму программа даёт правильный ответ, когда у Вас получается совершенно другой (субъективно тоже правильный) ответ.

Но самое смешное, что объективно ни Вы, ни программа насчитали неправильно - правильный ответ 4

Хотя если считается количество уникальных значений, больших пятнадцати - то да, их действительно 5.

[digitalis]

Сообщение от Cuprum5

- по каким признакам это видно?

Да очень просто - если скопипастить этот текст из форума в паскалевский файл и запустить его, то получится правильный ответ: 7. Ошибку можно допустить только при переносе. Вариант: неисправен комп; считает, но неправильно - даже не рассматриваем.

Сообщение от Serge_Bliznykov

в массиве из 10 элементов не может быть индекса 12.

Я имел в виду не индекс, а значение 12 - мин. элемент при перевернутом ' < '

LinuXxXовод молодец - классный тролль-топик вбросил. Вспоинаю у В.Конецкого : "Почему у всех животных есть селезенка, а у лошадей - нет?"

[min@y™]

:\

[digitalis]

min@y™ классная видяха. но для такой простой задачи - это из пушки не по воробьям даже, а по блохам. А в какой среде все это делалось ? QIP Shot ?