Исходник небольшой программы, задача которой находить максимальный элемент в массиве A, размерностью n среди чисел в промежутке от C до D. Есть пояснительные комментарии к строкам в программе. Увидеть исходный код и скачать исходник вы можете ниже.
Исходный код программы:
Var a: Array [1..100] of integer; //Описание переменных
i, n, c, d, max:integer;
Begin //Начало программы
Writeln ('Введите размерность и границы!'); //Считывание размерности
readln (n, c, d);
For i:=1 to n do //Инициализация массива
a[i]:=random (100)-50;
Max:=a[C]; //Присваивание максимальному значение a[d];
For i:=С+1 to D do //Поиск максимального
if Max < a[i] then
Max:=a[i];
writeln ('Массив');
For i:=1 to n do //Вывод массива
write (a[i],' ');
writeln ();
writeln ('Максимальный элемент', Max); //Вывод максимального
end. //КонецУзнать что такое одномерный массив, можно в этом уроке.
Скачать исходник: maxcd.pas