Одномерный массив. Поиск элемента(ов) массива

@DanteNero · Регистрация: 17.05.2017

Author24 — интернет-сервис помощи студентам

Определить значение, по модулю самое близкое к заданному числу С среди каждых третьих элементов второй половины массива. Алгоритм по поиску есть, но я не знаю, как оформить условие "каждый третий элемент второй половины массива".

Pascal

writeln('Вторая половина массива');
for i:=trunc(n/2)+1 to n do write(g[i]:3);writeln;
write('Введите С='); readln(C);
x:=maxint;
for i:=trunc(n/2)+1 to n do
     if abs(abs(c)-abs(g[i]))<=x then begin x:=abs(abs(c)-abs(g[i]));y:=x;end;
  writeln('значение и номер элемента по модулю самого близкого к С');
 for i:=trunc(n/2)+1 to n do
   if y=abs(abs(c)-abs(g[i])) then writeln(g[i],';', i,'; ');
 writeln;

@Hitoku · 18.05.2017, 09:50

Pascal

var
  a: array [1..100] of integer;
  i, n, ic: byte;
  c, x: integer;
begin
  randomize;
  write('Длина массива: ');readln(n);
  for i := 1 to n do begin
    a[i] := random(101) - 50;
    write(a[i], ' ');
  end;
  writeln;
  write('C = '); readln(c);
  ic := trunc(n / 2) + 1; i := trunc(n / 2) + 1;
  while i <= n do begin
    if abs(abs(c) - abs(a[i])) < abs(abs(c) - abs(a[ic])) then ic := i;
    i := i + 3;
  end;
  write('Элемент близкий к C: ', a[ic], ' (', ic, ')');
end.

@bormant · 19.05.2017, 13:16

Hitoku,

Pascal

14	ic := n div 2 + 1; i := ic;

Добавлено через 2 минуты
Но это не каждый третий второй половины массива, это первый элемент во второй половине.
Поэтому:

Pascal

14	ic := n div 2 + 3; i := ic;

	19.05.2017, 13:16