Нужно, ! задан массив х[1..n].какое условие надо поставить вместо многоточия, чтобы найти произведение отрицательных элементов массива переменной p? p: =0; for k: =1 to n do begin if then p: =p*x[k]; end;

Условие, которое будет истинным, если очередной элемент отрицателен, т.е. правильно будет так: if x[k]< 0 then но вообще-то здесь ошибка: начальное значение p должно быть 1, в том виде что есть сейчас, результатом всегда будет 0.

X[k]< 0  вот что нужно подставить.

Var   a : array [1..1000] of integer;   i, n, z, p, m  : integer; begin   i : = 0;   while not eoln do   begin     read (z);     inc (i);     a[i] : = z;     end;   m: = i; n: =0; z: =0; p: = 0;     for i : = 1 to m do      if i mod 2 = 0 then     begin       if a[i] < = then inc (n)        else if a[i] > 0 then inc (p)       else inc (z);     end;   writeln (n, ' ', z, ' ', p); end.

// 1. var a,b,c: real; begin writeln('введите два катета  a,b: '); readln(a,b); writeln('введите гипотенузу  c: '); readln(c);   if sqr(c) = sqr(a) + sqr(b) then writeln('треугольник прямоугольный.')   else writeln('треугольник не прямоугольный.'); end.// 2.vara: array [1..100] of integer; x,i,n: integer; beginwriteln('введите кол-во чисел  n: '); readln(n); writeln('введите числа: '); for i: = 1 to n do  readln(a[i]); writeln('вы ввели: '); for i: = 1 to n do  write(a[i]: 4); writeln; for i: = 1 to n do  if a[i] > -1 then x: =x+1; writeln('среди них положительных: ',x); end.