На улице не тепло,у всех зонтики и дождевики и все тело покрыто водой.
Дисковод ноль.Приводов два(DVDRW и BD). Дисков 4.System C SSD под систему ,Data (D) под все остальное,Recovery E под архивы,драйверы и инсталяшки и VM для виртуальных машин
На паскале должно выглядеть так:
Начало программы, ввод данных.
<...>
if (y>=x*x) and (y<=5) and ((y>=x+5) or (x>=0)) then write('принадлежит') else write('не принадлежит');
end.
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.