Среди всех пар элементов массива найти те, разность между которыми есть величина, наибольшая для данного массива

@DiMka_59 · Регистрация: 09.12.2012

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

Составить программу, отыскивающую среди всех возможных пар элементов одномерного массива те, разность между которыми есть величина, наибольшая для данного массива.

@pOsfix · 08.01.2013, 19:08

эмм ну я попытался помочь, но у мну ошибка вылетает помогите разобраться.

Pascal

const n=10; 
var i,f:byte;
k,max:integer;
arr:array[1..n] of integer;
begin
max:=0;
 
for i:= 1 downto n  do
begin
    for f:=1 to n do
    if i > f then
    k:=arr[i]-arr[f];
    if max < k then
    max:=k
    else
    continue;
    else
    k:=arr[f]-arr[i];
    if max < k then
    max:=k;
    else
    continue;
    end;
writeln(arr[f],' ',arr[i]);
end.

@DiMka_59 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 43
		1
	Среди всех пар элементов массива найти те, разность между которыми есть величина, наибольшая для данного массива 08.01.2013, 18:36. Показов 1448. Ответов 1 Метки нет (Все метки) Составить программу, отыскивающую среди всех возможных пар элементов одномерного массива те, разность между которыми есть величина, наибольшая для данного массива. 0

	08.01.2013, 19:08

Среди всех пар элементов массива найти те, разность между которыми есть величина, наибольшая для данного массива

Решение