Большие не знают, что ребёнок даже в самом трудном деле может дать чрезвычайно важный совет. Фёдор Достоевский
вторник, 1 февраля 2022 г.
понедельник, 31 января 2022 г.
Убивать животных
Люди не считают дурным есть животных оттого, что ложные учителя уверили их в том, что Бог разрешил людям есть животных.
Это неправда.
В каких бы книгах ни было написано, что не грех убивать животных и есть их, в сердце каждого человека написано яснее, чем в каких бы то ни было книгах, что животных надо жалеть и нельзя убивать так же, как и людей. Мы все знаем это, если не заглушаем в себе совести. Лев Толстой
среда, 19 января 2022 г.
понедельник, 17 января 2022 г.
среда, 7 апреля 2021 г.
Интересная задача
Решение:
program lab16;
var n,k:integer;
var s,r:real;
TYPE aa=array[1..11] of real;
var b:aa;
PROCEDURE symma(a:aa;n:integer; VAR s:real; var k:integer);
begin
for var i:=1 to n do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
begin
writeln('введите число элементов в массиве');
readln(n);
writeln('введите элементы массива');
for var i:=1 to n do
read(b[i]);
symma(b,n,s,k);
r:=s/k;
writeln('otvet ',r:4:2);
end.


