Задача на Одномерный массив Опции

[BloodNick]

Здравсвуйте..
мм..нужно решить вот такую вот задачу...

“Определить элемент, самый близкий к задан-ному числу С(Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них.), среди положительных элементов последней чет-верти. массив состоит из 33 элементов...
хотя бы поскажите в каком виде будет происходить поиск приблеженного числа...
разделить массив на 4 части выбрать последнию и выделит все положительные элементы это то легко..а вот найти приблеженное чет я не как не соображу как-это...

[Гость]

Модуль разности текущего элемента массива и заданного числа?

[Client]

Модуль разности текущего элемента массива и заданного числа?

Да

[neic]

Возможно это выглядит так:

uses crt;
var s,i:integer;
		a:array[1..33] of integer;
begin
clrscr;
for i:=1 to 33 do
begin
	write('Введите эелемент мтарицы А[',i,']:');
	read(s);
	a[i]:=s
end;
writeln;
writeln('Вывод массива');
writeln;

for i:=1 to 33 do
begin
	write(a[i],' ');
end;

writeln;
writeln('Введите значение которое хотите найти');
read(s);
{здесь вычисляешь последнюю четверть}
for i:=25 to 33 do
begin
		if a[i]>0 then
		IF a[i]=s then
				write(i,' ')
		else if ((a[i]-1=s) or (a[i]+1=s)) or ((a[i]-2=s) or (a[i]+2=s)) then write(i,' ')
end;
readkey
end.

Подправил.

Сообщение отредактировано: neic - 7.12.2007 12:10