2)
Код:
program Array1;
var
i:integer; // счетчик в цикле
N:integer; // размер массива
M: array [1..10] of integer;
Max:integer;
begin
// ввод данных
writeln('Введите N (N<=10)');
readln(N);
writeln('Введите элементы массива');
for i:=1 to N do begin read(M[i]); end; // формирование массива
Max:=1;
for i:=1 to N div 2 do begin
if abs(M[i*2]-M[i*2-1])>abs(M[Max*2]-M[Max*2-1]) then Max:=i;
end;
Writeln('Номера пары элементов между которыми разница наибольшая =',Max*2,' ',Max*2-1);
end.
Пример:
__________________________________________________ _____
Введите N (N<=10)
8
Введите элементы массива
1 2 3 -9 4 6 0 5
Номера пары элементов между которыми разница наибольшая =4 3
__________________________________________________ _____