1)Дана последовательность целых чисел ,заканчиваются нулем.Написал. прогр. Подсчитать сумму положит чисел. 2) Дана посл. Заканчиваются на 0.написал. Программу выводящую только четные числа 3)Дано N чисел .написал программу под...

Program n1; var a,k,sum,x:integer; begin write('Введите число X: '); readln(x); sum:=0; k:=0; writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:'); read(a); while a <> 0 do begin if a>x then sum:=sum+a; if a mod 2 = 0 then k:=k+1; read(a); end; writeln('Сумма всех чисел последовательности, больших числа X: ',sum); writeln('Количество всех четных чисел последовательности: ',k); end. По-моему так...