Решаем задачи Абрамян на Паскале. Array40

Array40. Дано число $R$ и массив $A$ размера $N$ . Найти элемент массива, который наиболее близок к числу $R$ (то есть такой элемент $A_K$ , для которого величина $|A_K — R|$ является минимальной).

Решение:

program Array40;
var
  a:array[1..10] of integer;
  N,i,k,R,Min:Integer;

begin
  a[1]:=0;
  Write('N: ');
  Readln(N);
  Write('R: ');
  Readln(R);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Min:=abs(a[1]-R);
  k:=1;

  for i:=1 to N do
    if abs(a[i]-R)<Min then
     begin
      Min := abs(a[i]-R);
      k := i;
     end;


  Writeln(k,' ',a[k]);
end.

program Array40;

var

a:array[1..10] of integer;

N,i,k,R,Min:Integer;

begin

a[1]:=0;

Write('N: ');

Readln(N);

Write('R: ');

Readln(R);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Min:=abs(a[1]-R);

k:=1;

for i:=1 to N do

if abs(a[i]-R)<Min then

begin

Min := abs(a[i]-R);

k := i;

end;

Writeln(k,' ',a[k]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array40

Комментарии:

Добавить комментарий Отменить ответ