Итак, я продолжаю публиковать решения различных задач на Паскале, выкладывать их исходники и исходные коды. На этот раз выкладываю исходник программы на Паскаль abc - Поиск минимального элемента и его индекса, то есть программа ищет минимальный элемент в одномерном массиве, выводит его и его индекс на экран. Открыть данный исходник можно в программах Pascal ABC.Net, Pascal ABC, TurboPascal (для данной программы необходимо внести соответственные изменения в код - пустой readln в конце) и других. Для поиска минимального элемента в массиве используется цикл FOR. В программе есть пояснительные комментарии к коду. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.
Исходный код программы:
const //Описание констант
Sz = 100;
var //Описание переменных
a: array [1..Sz] of real;
N: integer;
min: real;
minind: integer;
begin
N := 20;
for var i:=1 to N do //Заполнение и вывод массива
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
min := a[1]; //Поиск минимального элемента
minind := 1;
for var i:=2 to N do
if a[i]
Скачать исходник: minimal.pas