Определить элемент массива — это значит найти его положение (индекс) в массиве и его значение. Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них — Pascal(Паскаль)

Определить значение, по модулю самое близкое к заданному числу С среди четных по значению элементов последней трети массива
Диапазон заполнения массива случайными числами от -8 до 7
Размер массива n=39
Для получения целого случайного числа Х в интервале (a, b) используется следующий оператор: X=a + ROUND((b-a)RANDOM (100)100)

program chast3;

uses crt;

const
  n = 39;
  a = -8;
  b = 7;

var
  i, esp, j, c, k, zn, zb: integer;
  P, F, g: real;
  X: array [1 .. n] of integer;

Begin
  clrscr;
  Writeln('diapazon ot a=', a, ' do b=', b);
  Writeln('razmer massiva X=', n);

  { randomize };
  Writeln;
  Writeln(' Massiv X');
  for i := 1 to n do
  begin
    X[i] := a + Round((b - a) * RANDOM(100) / 100);
    write(X[i]:4);
  end;

  Writeln;
  Writeln;

  Writeln('Poslednyaya treti massiva X');
  for i := 27 to n do
  begin
    write(X[i]:4);
  end;
  Writeln;
  Writeln;
  Write('Vvedite znacenie "C": ');
  readln(c);

  zn := abs(X[27] - c);
  for i := 28 to n do
  begin
    if zn > abs(X[i] - c) then
    begin
      zn := abs(X[i] - c);
      zb := X[i]
    end;
  end;
  Writeln;
  Writeln('Znachenie, po modulyu samoe blizkoe k zadannomu chislu "C":');
  for i := 27 to n do
    if X[i] = zb then
      Writeln(zb, ' (s indexom= ', i, ')');

  readln;

end.

Похожие записи/страницы:

Leave a Comment

+ 49 = 51