Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности

@Luchini228 · Регистрация: 24.12.2012

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

Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности.
Пример:
P = 70
R = 50
Введите массив: 15 25 40 50 45
Ответ: 2
(т.к. P - R = 20, а порядковый номер элемента массива, который наиболее близок своим значением к 20, является 2)

@Valery__ · 13.01.2013, 17:50

Pascal

{Даны два вещественных числа P и R. Найти порядковый номер элемента массива A
размерности N, который наиболее близкий к их разности.}
Program array1;
Const n=10;
Type mas = array[1..n] of real;
Var a:mas;
    i,j:integer;
    p,r,min:real;
BEGIN
     for i:=1 to n do
          a[i]:= random(99);
     Write('Введите числа P и R ');
     Readln(p,r);
     min:=100;
     j:=0;
     for i:=1 to n do
          if abs(a[i]-p-r)<min then
               begin
                    min:=a[i];
                    j:=i;
               end;
     for i:=1 to n do
          Write (a[i]:4);
     Writeln;
     Writeln(j);
END.

Введите числа P и R 25 22
29 70 4 24 42 67 76 60 31 67
3

@Luchini228 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 7
		1
	Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности 13.01.2013, 17:17. Показов 1266. Ответов 1 Метки нет (Все метки) Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности. Пример: P = 70 R = 50 Введите массив: 15 25 40 50 45 Ответ: 2 (т.к. P - R = 20, а порядковый номер элемента массива, который наиболее близок своим значением к 20, является 2) 0

	13.01.2013, 17:50

Опции темы

Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности

Решение