<!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. При загрузке фулл кода выдает ошибку от сайта.. Поэтому на фотке весь код
Программа:
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)
A, B, s, pr: real;
n, i, j, arrMax, arrMin: byte;
s := 0;
arrMax := 1;
arrMin := 1;
if abs(arr[i]) < abs(arr[arrMin]) then arrMin := abs(i);
if abs(arr[i]) > abs(arr[arrMax]) then arrMax := abs(i);
if abs(arrMax - arrMin) = 1 then begin
writeln(); writeln('Между минимальным и максимальным значениями нет элементов.')
end
else begin
if arrMax < arrMin then begin
j := arrMin;
arrMin := arrMax;
arrMax := j;
pr := 1;
for i := arrMin + 1 to arrMax - 1 do pr := pr * arr[i];
writeln(); writeln('Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами: ', pr:0:2);
<!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. При загрузке фулл кода выдает ошибку от сайта.. Поэтому на фотке весь код
Программа:
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.