Исходник программы на Pascal, который находит максимальный элемент и меняет его с первым элементом в одномерном массиве. Пояснительные комментарии добавлены к каждой строке. Открывается с помощью Pascal ABC, Pascal ABC.Net, Turbo Pascal. Просмотреть исходный код и скачать исходник можно ниже.
Исходный код программы:
Const nmax=100; //Описание констант
Type Tarray=array[1..nmax] of integer; //Описание тима массива
var i, n, max:integer; //Описание переменных
a:Tarray; //Описание массива
Begin //Начало программы
writeln ('Введите размерность массива'); //Диалог с пользователем
readln (n); //Считывание размерности
for i:=1 to n do //Заполнение массива
a[i]:=random (100)-50;
for i:=1 to n do //Вывод первоначального массива
write (a[i], ' ');
max:=1;
for i:=2 to n do //Нахождение максимального элемента
if a[i]>a[max] then
max:=i;
i:=a[1]; //Переcтановка 1-го и максимального элемента
a[1]:=a[max];
a[max]:=i;
writeln; //Новая строка вывода
for i:=1 to n do //Вывод нового массива
write (a[i], ' ');
end.//Конец программы
Скачать исходник: maxone.pas