program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.
Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы