#include
using namespace std;
int main()
{
int []mas1=new int[9];
int []mas2=new int[9];
for(int i = 0; i<9;i++)
cin>>mas1[i];
for(int i = 0; i<9;i++)
{
cout<=0)
mas2[i]=mas1[i]*2;
else
mas2[i]=0;
}
for(int i=0;i<9;i++)
{
cout<
Var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True')
else writeln('False');
<span>end.</span>
Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>