<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
var s:=a.Where(t->t>0); // последовательность положительных
Writeln('Положительных: ',s.Count);
Writeln('Максимальный: ',a.Max);
Writeln('Сумма положительных: ',s.Sum);
Writeln('Ср.арифм. положительных: ',s.Average);
a.Transform(t->t.IsEven?2*t:t+1); a.Println
end.
<u>Пример</u>
-6 28 31 83 -25 -17 8 0 11 13
Положительных: 6
Максимальный: 83
Сумма положительных: 174
Ср.арифм. положительных: 29
-12 56 32 84 -24 -16 16 0 12 14
<html>
<head>
<title>Название страницы</title>
</head>
<body>
<style>
body,html {
background-color:yellow;
}
table {
font-size:7px;
font-weight:bold;
}
</style>
<table>
<tr>
<td width="30%">ФИО</td>
<td width="30%">Хобби</td>
<td width="30%"><img src="ссылка на картинку" width="250" height="250"/></td>
</tr>
</table>
</body>
</html>
В В1 будет написано число 4
так как нам в ячейке А1, присутствующей в формуле, заданной нам в В2, введено значение 2
подставляем в формулу
2+2=4
Бит - он бинарен, он может принимает 2 значения.
А) if (x >= m) and (x <= n) then written('True') else Writeln('False');
b) if (c*c = a*a + b*b) then written('True') else writeln('False');
в)if (x > 0) and (y > 0) then written('True') else writeln('False');
––––––––––––––––––––––––––––––––––––––
Кнопка 'спасибо' чуть ниже