Даны различные действительные числа x, y, z, d. найти min(max(x, y), max (x, z), max(z,

106

376

Ответы на вопрос:

4,8(4 оценок)

program Prog;

var i, x, Proiz, MinEl: Integer;

arr: array[1..8] of Integer;

begin

Proiz:=1;

MinEl:=13;

randomize;

write('Введите X: ');

read(x);

// запоолнение, вычисление мин. эл., и умножения

for i:=1 to 8 do begin

arr[i]:=random(12)+2;

Proiz:=Proiz*arr[i];

if arr[i]<MinEl then

MinEl:=arr[i]

end;

// вывод всего массива

for i:=1 to 8 do

write(arr[i], ' ');

writeln;

// вывод нужных элементов

writeln('Минимальный элемент: ', MinEl);

writeln('Произведение элементов: ', Proiz);

writeln('Элементы, равные X: ');

for i:=1 to 8 do

if arr[i]=x then

write(arr[i], ' ')

end.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.