Учитель информатики Бамбуркин С.П.

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

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],' ');
min := a[1]; //Поиск минимального элемента
 minind := 1;
 for var i:=2 to N do
 if a[i]<min then 
 begin
 min := a[i];
 minind := i;
 end;
 writeln('Минимальный элемент: ',min); //Вывод минимального элемента и его индекса
 writeln('Индекс минимального элемента: ',minind);
end. //Конец программы

Редактировалось Дата: Суббота, 21 Октябрь 2017