Составить программу которая будет находить сумму отрицательных чётных элементов одномерного массива. используя процедуры

Var     i,s: integer;   a: array[1..10]of integer; procedure sum(a: integer; var s: integer); begin if (a mod 2=0) and (a< 0) then     s: =s+a end; begin write('массив: '); for i: =1 to 10 do   begin   a[i]: =random(-10,10);   write(a[i],' ');   sum(a[i],s)   end; writeln; writeln('s=',s) end.

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-50,50); a.println;   var (kp,kn): =(a.where(t-> t> 0).count,a.where(t-> t< 0).count);   writeln('положительныx: ',kp,', отрицательных: ',kn);   writeln('положительных больше, чем отрицательных на ',kp-kn) end. пример 38 -15 -28 18 48 41 21 -43 11 26 положительныx: 7, отрицательных: 3 положительных больше, чем отрицательных на 4

Сообщение занимает 39 страниц по 27 строк. значит, следует найти количество строк. 39×27=1053 строки. нужно найти количество символов, т. е. количество байт в сообщении. в каждой строке по 35 символов: 1053×35=36855 байт в сообщении. нужно перевести в килобайты. в 1 кб 1024 байт, значит 36855÷1024=35 кб и 1015 байт в остатке. ответ: 36855 байт в сообщении, 35 килобайт и 1015 байт в сообщении. без подробностей: 1) 39×27×35=36855 (символов)- байты в сообщении 2) 36855÷1024=35 (кб)- килобайт и 1015 байт в сбщ.