Дан массив ll, содержащий 12 элементов вещественного типа - положительных, отрицательных и равных нулю. сосчитать количество не нулевых элементов массива и сформировать из них новый массив. найти модуль суммы элементов нового массива. .

Program gt; var a,b: array[1..1000]of real; i,n,k: longint; s: real; begin read(n); k: =0; for i: =1 to n do begin read(a[i]); if(a[i]< > 0)then begin k: =k+1; s: =s+a[i]; b[k]: =a[i]; end; end; s: =abs(s); writeln(s); end.

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('n = ');

readln(n);

if ((n mod 3 = 0) and (n< > 0)) then begin

write('k1 = ');

readln(k1);

write('k2 = ');

readln(k2);

write('k3 = ');

readln(k3);

setlength(a,n);

for i: =0 to n-1 do begin

write('заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i: =0;

while (i< n) do

begin

a[i]: =k1-a[i];

a[i+1]: =k2-a[i+1];

a[i+2]: =k3-a[i+2];

inc(i,3);

end;

write('k = ');

readln(k);

for i: =0 to n-2 do

if (a[i]+a[i+1]> =k) then begin write('в комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb: = true; end;

if (bb=false) then writeln(0);

end else writeln('введите число кратное 3 и неравное 0');

readln;

end.

1)                 начало

                        |  

| скоро |

да                     |                       нет

|                                                   |

|                                                   |

|                                                   |

делать уроки           играть в компьютер

|                                                   |

||

                      |

                  конец

2)             начало

                      |  

|--настроение хорошее--|

да                 |                   нет

|                                             |

|                                             |

|                                             |

погулять             позвонить другу

|                                             |

||

                      |

                  конец