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

Категория: Delphi/Pascal

2012-02-05 19:02:09

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

code: #pascal

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.

Поделиться:

Sample Code

категории

Похожие статьи: