Дам 15+ 1.Запиши верный ответ. (Впиши соответствующую латинскую букву или цифру) M&M= 2.Выбери закон алгебры логики. (A&B)&M=A&(B&M) ассоциативный закон дистрибутивный закон закон повторения нет верного ответа 3.Выбери верный ответ. (может быть несколько вариантов ответа) A∨(E∨N)=A∨E∨N P∨(E∧N)=P∨E∨N S&(E&N)=S&E&N 4.Выбери какой закон алгебры логики выполняется. Число 44 либо чётное, либо нечётное, третьего не дано. A∨A¯¯¯=1 A¯¯¯ A&A¯¯¯=3 нет верного ответа.

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.  //конец программы