Соляная кислота это вещество состоящее из водорода и хлора.
Соляная кислота=(водород+хлор)
begin
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.
Ответа от автора вопроса не поступило. Во вложении приведена блок-схема для следующего деления времени суток:
от 6 до 10 - утро;
после 10 до 18 - день;
после 18 до 23 - вечер;
прочее время - ночь.
Сама по себе программа не дописана. Возможно, нужно такое решение.
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If S<P then write('Ответ: ',S,'<',P)
else write('Ответ: ',S,'=',P);
readln;
end.
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>