Дан одномерный целый массив на 10 элементов найти сумму отрицательных и положительных чисел

Program test; const n = 10; var sump,sumo,i: integer; m: array [1..n] of integer; beginfor i: =1 to n do readln(m[i]); // мы заполняем массив числами for i: =1 to n do begin if m[i]> 0 then sump: =sump+m[i]; if m[i]< 0 then sumo: =sumo+m[i]; end; writeln('сумма положительных: ',sump); writeln('сумма отрицательных: ',sumo); end.

Яне уверен, что тебе нужно именно это, но может я угадал   type tpers = record           fam, name, par : string;           year : integer;           dep : string;       end;       var pers : tpers;       begin         pers.fam: ='иванов';         pers.name: ='иван';         pers.par: ='иванович';         pers.year: =1966;         pers.dep: ='цех №1';       end;

1. (число < 20) и не ( число нечетное)(9 < 20) и не (9 нечетное)  ⇒   истина и не истина  ⇒ ложь (18 < 20) и не (18 нечетное)  ⇒ истина и не ложь  ⇒ истина (35 < 20) и не (35 нечетное)  ⇒ ложь и не истина  ⇒ ложь (48  < 20) и не (48 нечетное)  ⇒ ложь и не ложь ⇒ ложьответ: 2) 18 2. не (число > 30) и ( число четное) или ( число меньше или равно 10)не (5 > 30) и (5 четное) или (5 меньше или равно 10)  ⇒ не ложь и ложь или истина  ⇒ ложь или истина  ⇒ истина не (9 > 30) и (9 четное) или (9 меньше или равно 10)  ⇒  не ложь и ложь или истина  ⇒ ложь или истина  ⇒ истинане (22 > 30) и (22 четное) или (22 меньше или равно 10)  ⇒  не ложь и истина или ложь ⇒ истина или ложь  ⇒ истинане (40 > 30) и (40 четное) или (40 меньше или равно 10)  ⇒  не истина и истина или ложь ⇒ ложь или ложь ⇒ ложьответ: 1) 5; 2) 9; 3) 22 3. ( число больше или равно 10) или ( число четное) или ( число меньше или равно 30)(7 больше или равно 10) или (7 четное) или (7 меньше или равно 30)  ⇒ ложь или ложь или истина  ⇒ истина (20 больше или равно 10) или (20 четное) или (20 меньше или равно 30)  ⇒ истина или истина или истина  ⇒ истина(27 больше или равно 10) или (27 четное) или (27 меньше или равно 30)  ⇒ истина или ложь или истина  ⇒ истина(35 больше или равно 10) или (35 четное) или (35 меньше или равно 30)  ⇒ истина или ложь или ложь  ⇒ истинаответ: для всех чисел результат высказывания - истина 4. (число > 30) или не (число четное) и (число меньше или равно 10)(5 > 30) или не (5 четное) и (5 меньше или равно 10)  ⇒ ложь или не ложь и истина  ⇒ ложь или истина  ⇒ истина (8  > 30) или не (8 четное) и (8 меньше или равно 10)  ⇒ ложь или не истина и истина  ⇒ ложь или ложь ⇒ ложь(17 > 30) или не (17 четное) и (17 меньше или равно 10)  ⇒ ложь или не ложь и ложь  ⇒ ложь или ложь ⇒ ложь(28 > 30) или не (28 четное) и (28 меньше или равно 10)  ⇒ ложь или не истина и ложь  ⇒ ложь или ложь ⇒ ложьответ:   2) 8 3) 17 4) 28 5. не (первая буква согласная) или ( последняя буква гласная)  не (с согласная) или (а гласная)  ⇒ не истина или истина  ⇒ истина не (с согласная) или (н гласная)  ⇒ не истина или ложь ⇒ ложьне (а согласная) или (т гласная)  ⇒ не ложь или ложь ⇒ истинане (а согласная) или (а гласная)  ⇒ не ложь или истина  ⇒ истинаответ:   2) слон6.( последняя буква согласная) или ( первая буква гласная) (а согласная) или (к гласная)   ⇒ ложь или ложь  ⇒ ложь (к согласная) или (б гласная)   ⇒ истина или ложь  ⇒ истина(л согласная) или (о гласная)   ⇒ истина или истина ⇒ истина(а согласная) или (о гласная)   ⇒ ложь или истина ⇒ истинаответ:   1) коза