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

Question

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

Answer 1

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.
По-моему так...