Программа:
Pascal:
№1)
const max = 100;
var
arr: array[1..max] of real;
i: integer;
n, A, B: integer;
begin
randomize;
repeat
write('n = ');
readln(n);
until n in [1..max];
write('A = '); readln(A);
write('B = '); readln(B);
writeln('Массив: ');
for i := 1 to n do begin
arr[i] := random(B - A + 1) + A;
write(arr[i]:5:1);
end;
end.
№2)
const max = 100;
var
arr: array[1..max] of real;
A, B, s, pr: real;
n, i, j, arrMax, arrMin: byte;
begin
randomize;
s := 0;
arrMax := 1;
arrMin := 1;
repeat
write('n = ');
readln(n);
until n in [1..max];
write('A = '); readln(A);
write('B = '); readln(B);
writeln('Массив: ');
for i := 1 to n do begin
arr[i] := random(B - A + 1) + A;
write(arr[i]:5:1);
end;
for i := 1 to n do begin
if abs(arr[i]) < abs(arr[arrMin]) then arrMin := abs(i);
if abs(arr[i]) > abs(arr[arrMax]) then arrMax := abs(i);
end;
if abs(arrMax - arrMin) = 1 then begin
writeln(); writeln('Между минимальным и максимальным значениями нет элементов.')
end
else begin
if arrMax < arrMin then begin
j := arrMin;
arrMin := arrMax;
arrMax := j;
end;
pr := 1;
for i := arrMin + 1 to arrMax - 1 do pr := pr * arr[i];
writeln(); writeln('Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами: ', pr:0:2);
end;
end.
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<style type="text/css">
#circle {
border-radius: 100px;
width: 100px;
height: 100px;
position: absolute;
top: 50%;
left: 50%;
transform: translate(-50%, -50%);
cursor: pointer;
}
#circle.red {
background-color: red;
}
#circle.green {
background-color: green;
}
#circle.orange {
background-color: orange;
}
</style>
<title>Title</title>
</head>
<body>
<div id="circle" class="red"></div>
<скрипт>
colors = ["red", "green", "orange"]
document.getElementById("circle").addEventListener("click", function(e) {
const element = this;
let currentColor = element.classList.value
if (currentColor === "orange"){
currentColor = colors[0]
} else {
currentColor = colors[colors.indexOf(currentColor)+1]
}
element.classList = currentColor
})
</скрипт>
</body>
</html>
P.S. При загрузке фулл кода выдает ошибку от сайта.. Поэтому на фотке весь код
Поделитесь своими знаниями, ответьте на вопрос:
Что такое сетевой этикет? 1. правила поведения за компьютерным столом 2. правила поведения в интернете 3. правила пользования информацией 4. закон, касающийся интернет
1.выбирайте правильную позу.
соблюдайте расстояние от глаз до монитора – 55-60 см (расстояние вытянутой руки).
выбирайте для работы за компьютером удобное кресло.
высота сиденья кресла (стула) должна быть такой, чтобы руки, положенные на клавиатуру, были расположены горизонтально.
2.старайтесь выглядеть достойно в глазах собеседников,
пишите грамотно,
человек, с которым вы общаетесь, может быть не один,
сдерживайте страсти,
будьте терпимы к недостаткам окружающий
3.1.1. на основании договора;
1.2. в форме воспроизведения, без согласия newsader и без выплаты ему вознаграждения, при условии, что такое использование осуществляется гражданином исключительно в личных целях.
1.3. без согласия newsader и без выплаты вознаграждения, но с обязательным указанием ссылки на newsader в соответствии с п. 5 настоящих правил в виде:
1.3.1. цитирования материалов или их части в оригинале и в переводе в научных, полемических, критических или информационных целях в объеме, оправданном целью цитирования, включая части текстовых материалов;
1.3.2. использования материалов и их частей в качестве иллюстраций в изданиях, радио- и телепередачах, звуко- и видеозаписях учебного характера в объеме, оправданном поставленной целью;
1.3.3. воспроизведения в прессе, сообщение в эфир или по кабелю публично произнесенных политических речей, обращений, докладов и других аналогичных произведений, если они являются частью материалов в объеме, оправданном информационной целью;
1.3.4. воспроизведения или сообщения для всеобщего сведения в обзорах текущих событий средствами фотографии, кинематографии, путем сообщения в эфир или по кабелю материалов или их частей, которые становятся увиденными или услышанными в ходе таких событий, в объеме, оправданном информационной целью;