Исходник программы, которая выводит максимальную разность в массиве

Исходник программы, которая выводит максимальную разность в массиве

Добрый день, уважаемые читатели. Сегодня я публикую программу, которая выводит максимальную разность элементов массива. Данная программа была представлена в одном из вариантов ЕГЭ по информатике прошлых лет в части C2.  

Итак, нужно написать программу, которая выведет максимальную разность элементов в массиве. Максимальная разность - это разность максимального и минимального элементов, а значит задача сводится к нахождению максимального и минимального элементов массива и выводу их разности. Находить максимальный и минимальный элемент будем по известным алгоритмам.

 

Исходный код программы паскаль: 

program C2;
Const N=10;
var i, j, X, Y :integer;
a:array [1..N] of integer;
Begin
For i:=1 to N do 
readln (a[i]);
X:=a[1]; //В переменной X будем хранить максимальное значение
Y:=a[1]; //В переменной Y - минимальное
For j:= 2 to N do begin //Находим максмиальный и минимальный элементы в массиве
if a[j]>X then
X:=a[j];
if a[j]
Y:=a[j];
end;
write (X-Y); //Выводим максимальную разность
readln;
End.

Скачать исходник: С2_max_raznost

Автор: Zed от 2015-01-01 13:50:35   Просмотров: 3852

Теги: Исходник исходники Паскаль Pascal скачать ЕГЭ