Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на Одномерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.


Подправил.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.