Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
<span>end.
Пример:
x=-4
f(x)=9.000
Блок-схема - в прилагаемом файле.</span>
<html>
<head><title>Моя страничка</title></head>
<body>
<table align="center">
<tr><td>
<ul>
<li>Пункт списка</li>
</ul>
</td></tr>
</table>
</body>
</html>
По алфавиту! Буква "Г" - четвертая в алфавите; Буква "А" - первая; Буква "Р" - восемнадцатая; Буква "И" - десятая; Буква "Н" - пятнадцатая.
Вот и всё)
Пусть дана матрица А размером n x n.
Обнуляем переменную s, в которой будет накапливаться сумма элементов главной диагонали и переменную k, в которой будет накапливаться количество отобранных элементов.
В цикле для i от 1 до n повторяем следующее действие:
- если значение А[i,i]>0, то добавляем его в s и увеличиваем k на единицу.
Когда цикл завершится, найдем среднее арифметическое как s/k.