Число и массив - Паскаль, Turbo Pascal, PascalABC.NET

A_Orlov · 27.04.2010, 16:50

Помогите пожалуйста с задачкой нахождения числа!
Дано число R и массив A размера N. Найти элемент массива, который наиболее близок к числу R (то есть такой элемент AK, для которого величина |AK – R| является минимальной).

Филантроп · 27.04.2010, 17:03

Код:

k:=1
for i:=2 to n do
if abs(a[i]-r)<abs(a[k]-r) then k:=i;
writeln(a[k]);

27.04.2010, 16:50	#1
A_Orlov Пользователь Регистрация: 27.04.2010 Сообщений: 26	Число и массив Помогите пожалуйста с задачкой нахождения числа! Дано число R и массив A размера N. Найти элемент массива, который наиболее близок к числу R (то есть такой элемент AK, для которого величина \|AK – R\| является минимальной).

27.04.2010, 17:03	#2
Филантроп Форумчанин Регистрация: 12.04.2010 Сообщений: 134	Код: `k:=1 for i:=2 to n do if abs(a[i]-r)<abs(a[k]-r) then k:=i; writeln(a[k]);` кому нужна помощь! жду в аське и скайпе!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вставить число в массив	Julia13	Помощь студентам	3	08.01.2012 16:51
Написать программу, которая за меньшее число ходов отгадывает загаданное число	gomz007	Помощь студентам	16	08.11.2009 12:57
Как разбить число на массив?	recond	Общие вопросы C/C++	15	03.02.2009 00:36
Вывести число, предшествующее первому отрицательному и число, следующее за последним отрицательным	Rid	Паскаль, Turbo Pascal, PascalABC.NET	4	22.12.2008 16:50
Ввести число N и определить делится ли оно без остатка на число M (VBA)	Ivanich	Microsoft Office Excel	7	24.04.2008 19:43