uses crt;
var i,num,size,summa,k:integer;
t:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива');
readln(size);
FOR i := 1 TO size do
begin
clrscr;
writeln('Введите элементы массива');
readln(t[i]);
end;
writeln('Введенные элементы');
for i:=1 to size do
begin
writeln(t[i]);
end;
FOR i := 1 TO size do
begin
IF t[i] = 0 THEN
 num := i;
 FOR k := num + 1 TO size do
begin
summa := summa + t[k];
end;
writeln('Сумма элементов после первого 0 равна ', summa);
writeln('Количество элементов после первого 0 равна ', size - i);
  halt;
 end;
 end.