Дана непустая последовательность целых чисел, оканчивающаяся нулем (0 является признаком окончания последовательности и в последовательность не входит). Найти и напечатать: 1. Сумму всех чисел, больших Х (значение Х вводится с клавиатуры). Если таких чисел нет, то напечатать "Таких чисел нет" 2. Количество четных чисел

Чтобы найти сумму всех чисел, больших Х; количество четных чисел: var a:array[1 ... 1000] of longint; i, j, k, b, h, v:longint; begin i:=2; readln (a[1]); while (a[i-1]0) do begin readln (a[i]); inc (i); end; readln (j); for k:=1 to i-1 do if a[k]>j then h:=h+a[k] else inc (b); if b=i-1 then writeln ('таких чисел нет'); for k:=1 to i-1 do if a[k] mod 2=0 then inc (v); writeln (h, v); end.