Здравсвуйте..
мм..нужно решить вот такую вот задачу...
“Определить элемент, самый близкий к задан-ному числу С(Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них.), среди положительных элементов последней чет-верти. массив состоит из 33 элементов...
хотя бы поскажите в каком виде будет происходить поиск приблеженного числа...
разделить массив на 4 части выбрать последнию и выделит все положительные элементы это то легко..а вот найти приблеженное чет я не как не соображу как-это...
Модуль разности текущего элемента массива и заданного числа?
Возможно это выглядит так:
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.