так воно має розв’язуватись за одномірним масивом  і циклом for i if тільки я не можу додуматись як...допоможіть будь ласка

ааа дуже дякую...там може і нема але я не можу докумекатись..))))з двомірним розвязала а з цим не можу..))

Давненько вже не писав на паскалі.
Вийшло щось таке:

program fignja;
var 
x: array[1..13] of real = ((0.01,-27.3,0,125.27,-371.45,0,12,-5,-172.3,0.05,-17.1,49.5,-0.01));
suma: real;
i: integer;
begin
i:=0;

for i to 13 do
 begin
  if x[i] < 0
   then
    suma:=suma+x[i];
 end;
 
writeln('Suma = ',suma);
readln;
end.

Ну помилка в циклі   - for i:=0, але автору, походу, вже нафіг код той не потрібен)) (не здивуюсь, якщо така тема з'явилась на декількох форумах) - упс, переплутав тему і автора)

Не буду виправдовуватися

Вітаю на форумі, пане некропостере.
Вам треба створити змінну, котра буде містити кінцевий результат і присвоїти їй значення 1. Потім треба пройтись по масиву і перевіряти, чи поточний елемент масиву задовольняє умовам. Якщо задовольняє, то множите його на змінну, котру створили раніше, і присвоюєте результат цій самій змінні

//псевдокод

int result = 1;
for(int element in array) {
  if (element.twoDigits()) {
    result = result * element;
  }
}