Program temperature; Uses crt; Var x : array [1..2,1..12] of real; t,m,i : integer; z,v,l,o : real; Begin z:=0;v:=0;l:=0;o:=0; for i:=1 to 12 do x[1,i]:=i; x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18; x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7; for i:=1 to 3 do z:=z+x[2,i]; for i:=4 to 6 do v:=v+x[2,i]; for i:=7 to 9 do l:=l+x[2,i]; for i:=10 to 12 do o:=o+x[2,i]; z:=z/3;v:=v/3;l:=l/3;o:=o/3; writeln('Средняя температура зимних месяцев = ',z:3:1); writeln('Средняя температура весенних месяцев = ',v:3:1); writeln('Средняя температура летних месяцев = ',l:3:1); writeln('Средняя температура осенних месяцев = ',o:3:1); End.
Program num2; Uses crt; Var x :array[1..100] of integer; i, n : integer; Begin clrscr; write('N=');readln(n); for i:=1 to n do begin write('x[',i,']=');readln(x[i]) end; for i:=1 to n do if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]); End.
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<title>Время суток</title>
<style>
h5 {
width: fit-content;
}
h5:hover::after {
content: "<KEK";
}
</style>
<link rel="stylesheet" href="style.css" />
<script src="script.js"></script>
</head>
<body>
<header>
<h1>Приложение "Времена года"</h1>
</header>
<hr />
<main>
<label for="vre">Какой месяц года проверить?</label>
<input type="text" id="vre" />
<button id="b1">Обработать информацию</button>
<div id="image_box">
<img id="image" src="hello.png" />
</div>
</main>
<hr />
<footer>
<h5>Copyright: © Teacher - Kyiv, 2019</h5>
</footer>
<script>
"use strict";
(function() {
const b1 = document.getElementById("b1");
b1.onclick = function() {
const vre = document.getElementById("vre");
const image = document.getElementById("image");
if (vre.value.match(/(декаб|янва)рь|февраль/gi)) {
alert("Зима");
image.src = "winter.png";
} else if (vre.value.match(/март|апрель|май/gi)) {
alert("Весна");
image.src = "spring.png";
} else if (vre.value.match(/ию(л|н)ь|август/gi)) {
alert("Лето");
image.src = "summer.png";
} else if (vre.value.match(/(сент|окт|но)ябрь/gi)) {
alert("Осень");
image.src = "autumn.png";
} else {
alert("Вы ввели неверный месяц");
}
};
})();
</script>
</body>
</html>
Program temperature;
Uses crt;
Var
x : array [1..2,1..12] of real;
t,m,i : integer;
z,v,l,o : real;
Begin
z:=0;v:=0;l:=0;o:=0;
for i:=1 to 12 do
x[1,i]:=i;
x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18;
x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7;
for i:=1 to 3 do
z:=z+x[2,i];
for i:=4 to 6 do
v:=v+x[2,i];
for i:=7 to 9 do
l:=l+x[2,i];
for i:=10 to 12 do
o:=o+x[2,i];
z:=z/3;v:=v/3;l:=l/3;o:=o/3;
writeln('Средняя температура зимних месяцев = ',z:3:1);
writeln('Средняя температура весенних месяцев = ',v:3:1);
writeln('Средняя температура летних месяцев = ',l:3:1);
writeln('Средняя температура осенних месяцев = ',o:3:1);
End.
Program num2;
Uses crt;
Var
x :array[1..100] of integer;
i, n : integer;
Begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('x[',i,']=');readln(x[i])
end;
for i:=1 to n do
if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]);
End.