С:=1 ...............................................................
1,5 и 4 потому что X и У не могут быть одинаковыми
Const kmax = 20;
var T:array [1..kmax] of integer;
i,k,zero,sum,count:integer;
begin
count:=0;
sum:=0;
repeat
write ('K(K<20) = ');
readln (k);
until k in [1..kmax];
randomize;
for i:=1 to k do
begin
T[i]:=random(14)-5;
write (T[i]:3);
end;
writeln;
zero:=1;
while (zero<=k) and (T[zero]<>0) do inc(zero);
count:=k-zero;
if zero<>kmax then
for i:=zero+1 to k do sum:=sum+T[i];
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',count);
end.
Программа..............................................